|
2000
|
How can I change the visual appearance of the filter bar's close button (solid)
/*begin event AddItem(long Item) - Occurs after a new Item has been inserted to Items collection.*/
/*
oG2antt = ole_1.Object
oG2antt.Items.AddBar(Item,"Task",2017-12-04,2017-12-14)
*/
/*end event AddItem*/
OleObject oG2antt,var_Chart,var_Column,var_Items
oG2antt = ole_1.Object
oG2antt.BeginUpdate()
var_Chart = oG2antt.Chart
var_Chart.LevelCount = 2
var_Chart.FirstVisibleDate = 2017-12-02
var_Chart.PaneWidth(false,256)
oG2antt.Columns.Add("Item").DisplayFilterButton = true
var_Column = oG2antt.Columns.Add("Pos")
var_Column.AllowSizing = false
var_Column.AllowSort = false
var_Column.Width = 32
var_Column.FormatColumn = "1 apos ``"
var_Column.Position = 0
var_Items = oG2antt.Items
var_Items.AddItem("Item A")
var_Items.AddItem("Item B")
var_Items.AddItem("Item C")
oG2antt.FilterBarPromptVisible = 1
oG2antt.Background(1,RGB(255,0,0))
oG2antt.EndUpdate()
|
|
1999
|
Is it possible to prevent definitely showing the filter bar's close button
/*begin event AddItem(long Item) - Occurs after a new Item has been inserted to Items collection.*/
/*
oG2antt = ole_1.Object
oG2antt.Items.AddBar(Item,"Task",2017-12-04,2017-12-14)
*/
/*end event AddItem*/
OleObject oG2antt,var_Chart,var_Column,var_Items
oG2antt = ole_1.Object
oG2antt.BeginUpdate()
var_Chart = oG2antt.Chart
var_Chart.LevelCount = 2
var_Chart.FirstVisibleDate = 2017-12-02
var_Chart.PaneWidth(false,256)
oG2antt.Columns.Add("Item").DisplayFilterButton = true
var_Column = oG2antt.Columns.Add("Pos")
var_Column.AllowSizing = false
var_Column.AllowSort = false
var_Column.Width = 32
var_Column.FormatColumn = "1 apos ``"
var_Column.Position = 0
var_Items = oG2antt.Items
var_Items.AddItem("Item A")
var_Items.AddItem("Item B")
var_Items.AddItem("Item C")
oG2antt.FilterBarPromptVisible = 1
oG2antt.Background(1,-1)
oG2antt.EndUpdate()
|
|
1998
|
Is it possible to show the close button only if there is a filter applied
/*begin event AddItem(long Item) - Occurs after a new Item has been inserted to Items collection.*/
/*
oG2antt = ole_1.Object
oG2antt.Items.AddBar(Item,"Task",2017-12-04,2017-12-14)
*/
/*end event AddItem*/
OleObject oG2antt,var_Chart,var_Column,var_Items
oG2antt = ole_1.Object
oG2antt.BeginUpdate()
var_Chart = oG2antt.Chart
var_Chart.LevelCount = 2
var_Chart.FirstVisibleDate = 2017-12-02
var_Chart.PaneWidth(false,256)
oG2antt.Columns.Add("Item").DisplayFilterButton = true
var_Column = oG2antt.Columns.Add("Pos")
var_Column.AllowSizing = false
var_Column.AllowSort = false
var_Column.Width = 32
var_Column.FormatColumn = "1 apos ``"
var_Column.Position = 0
var_Items = oG2antt.Items
var_Items.AddItem("Item A")
var_Items.AddItem("Item B")
var_Items.AddItem("Item C")
oG2antt.FilterBarPromptVisible = 513 /*exFilterBarShowCloseIfRequired | exFilterBarPromptVisible*/
oG2antt.EndUpdate()
|
|
1997
|
The control's filter bar is not closed once I click the close button (toggle)
/*begin event AddItem(long Item) - Occurs after a new Item has been inserted to Items collection.*/
/*
oG2antt = ole_1.Object
oG2antt.Items.AddBar(Item,"Task",2017-12-04,2017-12-14)
*/
/*end event AddItem*/
OleObject oG2antt,var_Chart,var_Column,var_Column1,var_Items
any h
oG2antt = ole_1.Object
oG2antt.BeginUpdate()
var_Chart = oG2antt.Chart
var_Chart.LevelCount = 2
var_Chart.FirstVisibleDate = 2017-12-02
var_Chart.PaneWidth(false,256)
oG2antt.Columns.Add("Item").DisplayFilterButton = true
var_Column = oG2antt.Columns.Add("Pos")
var_Column.AllowSizing = false
var_Column.AllowSort = false
var_Column.Width = 32
var_Column.FormatColumn = "1 apos ``"
var_Column.Position = 0
var_Items = oG2antt.Items
var_Items.AddItem("Item A")
var_Items.AddItem("Item B")
var_Items.AddItem("Item C")
var_Items.LockedItemCount(2,1)
h = var_Items.LockedItem(2,0)
var_Items.ItemDivider(h,0)
var_Items.CellValue(h,0,"<c><fgcolor=808080>Press the CTRL + F to turn on/off the control's filter bar. ALT + Up/Down moves the focus.")
var_Items.CellValueFormat(h,0,1)
oG2antt.FilterBarCaption = "`<r><fgcolor=808080>` + value"
oG2antt.FilterBarPromptPattern = "B"
oG2antt.FilterBarPromptVisible = 2323 /*exFilterBarCompact | exFilterBarToggle | exFilterBarSingleLine | exFilterBarVisible | exFilterBarPromptVisible*/
var_Column1 = oG2antt.Columns.Item(0)
var_Column1.FilterType = 240
var_Column1.Filter = "Item B"
oG2antt.ApplyFilter()
oG2antt.EndUpdate()
|
|
1996
|
How can I display the control's filter on a single line
/*begin event AddItem(long Item) - Occurs after a new Item has been inserted to Items collection.*/
/*
oG2antt = ole_1.Object
oG2antt.Items.AddBar(Item,"Task",2017-12-04,2017-12-14)
*/
/*end event AddItem*/
OleObject oG2antt,var_Chart,var_Column,var_Column1,var_Items
oG2antt = ole_1.Object
oG2antt.BeginUpdate()
var_Chart = oG2antt.Chart
var_Chart.LevelCount = 2
var_Chart.FirstVisibleDate = 2017-12-02
var_Chart.PaneWidth(false,256)
oG2antt.Columns.Add("Item").DisplayFilterButton = true
var_Column = oG2antt.Columns.Add("Pos")
var_Column.AllowSizing = false
var_Column.AllowSort = false
var_Column.Width = 32
var_Column.FormatColumn = "1 apos ``"
var_Column.Position = 0
var_Items = oG2antt.Items
var_Items.AddItem("Item A")
var_Items.AddItem("Item B")
var_Items.AddItem("Item C")
oG2antt.FilterBarCaption = "len(value) ? `filter for: <fgcolor 808080>` + value : `<fgcolor 808080>no filter`"
oG2antt.FilterBarPromptVisible = 18 /*exFilterBarSingleLine | exFilterBarVisible*/
var_Column1 = oG2antt.Columns.Item(0)
var_Column1.FilterType = 240
var_Column1.Filter = "Item A|Item B"
oG2antt.ApplyFilter()
oG2antt.EndUpdate()
|
|
1995
|
How can I display the control's filter on a single line (prompt-combined)
/*begin event AddItem(long Item) - Occurs after a new Item has been inserted to Items collection.*/
/*
oG2antt = ole_1.Object
oG2antt.Items.AddBar(Item,"Task",2017-12-04,2017-12-14)
*/
/*end event AddItem*/
OleObject oG2antt,var_Chart,var_Column,var_Column1,var_Items
oG2antt = ole_1.Object
oG2antt.BeginUpdate()
var_Chart = oG2antt.Chart
var_Chart.LevelCount = 2
var_Chart.FirstVisibleDate = 2017-12-02
var_Chart.PaneWidth(false,256)
oG2antt.Columns.Add("Item").DisplayFilterButton = true
var_Column = oG2antt.Columns.Add("Pos")
var_Column.AllowSizing = false
var_Column.AllowSort = false
var_Column.Width = 32
var_Column.FormatColumn = "1 apos ``"
var_Column.Position = 0
var_Items = oG2antt.Items
var_Items.AddItem("Item A")
var_Items.AddItem("Item B")
var_Items.AddItem("Item C")
oG2antt.FilterBarCaption = "`<r>` + value"
oG2antt.FilterBarPromptVisible = 2067 /*exFilterBarCompact | exFilterBarSingleLine | exFilterBarVisible | exFilterBarPromptVisible*/
var_Column1 = oG2antt.Columns.Item(0)
var_Column1.FilterType = 240
var_Column1.Filter = "Item A|Item B"
oG2antt.ApplyFilter()
oG2antt.EndUpdate()
|
|
1994
|
How can I get the number of results after a filter is applied
/*begin event AddItem(long Item) - Occurs after a new Item has been inserted to Items collection.*/
/*
oG2antt = ole_1.Object
oG2antt.Items.AddBar(Item,"Task",2017-12-04,2017-12-14)
*/
/*end event AddItem*/
/*begin event Click() - Occurs when the user presses and then releases the left mouse button over the tree control.*/
/*
oG2antt = ole_1.Object
oG2antt.ClearFilter()
*/
/*end event Click*/
/*begin event FilterChange() - Occurs when the filter was changed.*/
/*
oG2antt = ole_1.Object
MessageBox("Information",string( "Items.MatchItemCount" ))
MessageBox("Information",string( String(oG2antt.Items.MatchItemCount) ))
MessageBox("Information",string( String(oG2antt.FormatABC("value < 0 ? `filter applied: ` + abs(value + 1) + ` result(s)` : `no filter`",oG2antt.Items.MatchItemCount)) ))
*/
/*end event FilterChange*/
OleObject oG2antt,var_Chart,var_Column,var_Items
oG2antt = ole_1.Object
oG2antt.BeginUpdate()
var_Chart = oG2antt.Chart
var_Chart.LevelCount = 2
var_Chart.FirstVisibleDate = 2017-12-02
var_Chart.PaneWidth(false,256)
oG2antt.Columns.Add("Item").DisplayFilterButton = true
var_Column = oG2antt.Columns.Add("Pos")
var_Column.AllowSizing = false
var_Column.AllowSort = false
var_Column.Width = 32
var_Column.FormatColumn = "1 apos ``"
var_Column.Position = 0
var_Items = oG2antt.Items
var_Items.AddItem("Item A")
var_Items.AddItem("Item B")
var_Items.AddItem("Item C")
oG2antt.FilterBarPromptVisible = 1
oG2antt.FilterBarPromptPattern = "Item"
oG2antt.EndUpdate()
|
|
1993
|
How can I programmatically clear the control's filter
/*begin event AddItem(long Item) - Occurs after a new Item has been inserted to Items collection.*/
/*
oG2antt = ole_1.Object
oG2antt.Items.AddBar(Item,"Task",2017-12-04,2017-12-14)
*/
/*end event AddItem*/
/*begin event Click() - Occurs when the user presses and then releases the left mouse button over the tree control.*/
/*
oG2antt = ole_1.Object
oG2antt.ClearFilter()
*/
/*end event Click*/
OleObject oG2antt,var_Chart,var_Column,var_Items
oG2antt = ole_1.Object
oG2antt.BeginUpdate()
var_Chart = oG2antt.Chart
var_Chart.LevelCount = 2
var_Chart.FirstVisibleDate = 2017-12-02
var_Chart.PaneWidth(false,256)
oG2antt.Columns.Add("Item").DisplayFilterButton = true
var_Column = oG2antt.Columns.Add("Pos")
var_Column.AllowSizing = false
var_Column.AllowSort = false
var_Column.Width = 32
var_Column.FormatColumn = "1 apos ``"
var_Column.Position = 0
var_Items = oG2antt.Items
var_Items.AddItem("Item A")
var_Items.AddItem("Item B")
var_Items.AddItem("Item C")
oG2antt.FilterBarPromptVisible = 1
oG2antt.FilterBarPromptPattern = "B"
oG2antt.EndUpdate()
|
|
1992
|
Is it possible to prevent closing the control's filter bar, so it is always shown (prompt-combined)
/*begin event AddItem(long Item) - Occurs after a new Item has been inserted to Items collection.*/
/*
oG2antt = ole_1.Object
oG2antt.Items.AddBar(Item,"Task",2017-12-04,2017-12-14)
*/
/*end event AddItem*/
OleObject oG2antt,var_Chart,var_Column,var_Column1,var_Items
oG2antt = ole_1.Object
oG2antt.BeginUpdate()
var_Chart = oG2antt.Chart
var_Chart.LevelCount = 2
var_Chart.FirstVisibleDate = 2017-12-02
var_Chart.PaneWidth(false,256)
oG2antt.Columns.Add("Item").DisplayFilterButton = true
var_Column = oG2antt.Columns.Add("Pos")
var_Column.AllowSizing = false
var_Column.AllowSort = false
var_Column.Width = 32
var_Column.FormatColumn = "1 apos ``"
var_Column.Position = 0
var_Items = oG2antt.Items
var_Items.AddItem("Item A")
var_Items.AddItem("Item B")
var_Items.AddItem("Item C")
oG2antt.FilterBarPromptPattern = "B"
oG2antt.FilterBarPromptVisible = 3 /*exFilterBarVisible | exFilterBarPromptVisible*/
var_Column1 = oG2antt.Columns.Item(0)
var_Column1.FilterType = 240
var_Column1.Filter = "Item B"
oG2antt.ApplyFilter()
oG2antt.EndUpdate()
|
|
1991
|
Is it possible to prevent closing the control's filter bar, so it is always shown (prompt)
/*begin event AddItem(long Item) - Occurs after a new Item has been inserted to Items collection.*/
/*
oG2antt = ole_1.Object
oG2antt.Items.AddBar(Item,"Task",2017-12-04,2017-12-14)
*/
/*end event AddItem*/
OleObject oG2antt,var_Chart,var_Column,var_Items
oG2antt = ole_1.Object
oG2antt.BeginUpdate()
var_Chart = oG2antt.Chart
var_Chart.LevelCount = 2
var_Chart.FirstVisibleDate = 2017-12-02
var_Chart.PaneWidth(false,256)
oG2antt.Columns.Add("Item").DisplayFilterButton = true
var_Column = oG2antt.Columns.Add("Pos")
var_Column.AllowSizing = false
var_Column.AllowSort = false
var_Column.Width = 32
var_Column.FormatColumn = "1 apos ``"
var_Column.Position = 0
var_Items = oG2antt.Items
var_Items.AddItem("Item A")
var_Items.AddItem("Item B")
var_Items.AddItem("Item C")
oG2antt.FilterBarPromptVisible = 1
oG2antt.FilterBarPromptPattern = "B"
oG2antt.EndUpdate()
|
|
1990
|
Is it possible to prevent closing the control's filter bar, so it is always shown
/*begin event AddItem(long Item) - Occurs after a new Item has been inserted to Items collection.*/
/*
oG2antt = ole_1.Object
oG2antt.Items.AddBar(Item,"Task",2017-12-04,2017-12-14)
*/
/*end event AddItem*/
OleObject oG2antt,var_Chart,var_Column,var_Column1,var_Items
oG2antt = ole_1.Object
oG2antt.BeginUpdate()
var_Chart = oG2antt.Chart
var_Chart.LevelCount = 2
var_Chart.FirstVisibleDate = 2017-12-02
var_Chart.PaneWidth(false,256)
oG2antt.Columns.Add("Item").DisplayFilterButton = true
var_Column = oG2antt.Columns.Add("Pos")
var_Column.AllowSizing = false
var_Column.AllowSort = false
var_Column.Width = 32
var_Column.FormatColumn = "1 apos ``"
var_Column.Position = 0
var_Items = oG2antt.Items
var_Items.AddItem("Item A")
var_Items.AddItem("Item B")
var_Items.AddItem("Item C")
oG2antt.FilterBarCaption = "len(value) = 0 ? `<fgcolor=808080>no filter` : value"
oG2antt.FilterBarPromptVisible = 2
var_Column1 = oG2antt.Columns.Item(0)
var_Column1.FilterType = 240
var_Column1.Filter = "Item B"
oG2antt.ApplyFilter()
oG2antt.EndUpdate()
|
|
1989
|
What are the options to align the percent caption
OleObject oG2antt,var_Bar,var_Chart,var_Items
any h
oG2antt = ole_1.Object
oG2antt.BeginUpdate()
oG2antt.Columns.Add("Clip")
oG2antt.ScrollBySingleLine = true
oG2antt.DrawGridLines = -2
var_Chart = oG2antt.Chart
var_Chart.AllowResizeChart = 6 /*exAllowResizeChartMiddle | exAllowResizeChartHeader*/
var_Chart.DrawGridLines = -2
var_Chart.FirstVisibleDate = 2000-12-26
var_Chart.LevelCount = 2
var_Chart.PaneWidth(false,256)
var_Bar = var_Chart.Bars.Add("Task%Progress")
var_Bar.Shortcut = "Task"
var_Bar.Pattern = 32
var_Bar.Color = RGB(164,164,164)
var_Bar.StartColor = RGB(240,240,240)
var_Bar.EndColor = var_Bar.StartColor
var_Bar.OverlaidType = 4611 /*exOverlaidBarsIncludeCaption | exOverlaidBarsStackAutoArrange | exOverlaidBarsStack*/
var_Bar.Height = 15
var_Bar.Def(12,0.5)
var_Bar.Def(14,true)
var_Bar.Def(13,"<sha ;;0>%p%")
var_Items = oG2antt.Items
h = var_Items.AddItem("no clip, (0-2)")
var_Items.AddBar(h,"Task",2001-01-02,2001-01-04,"K1")
var_Items.ItemBar(h,"K1",15,2)
var_Items.AddBar(h,"Task",2001-01-02,2001-01-04,"K2")
var_Items.ItemBar(h,"K2",15,1)
var_Items.AddBar(h,"Task",2001-01-02,2001-01-04,"K3")
var_Items.ItemBar(h,"K3",15,0)
h = var_Items.AddItem("clip, inside (3-5)")
var_Items.AddBar(h,"Task",2001-01-02,2001-01-04,"K1")
var_Items.ItemBar(h,"K1",15,5)
var_Items.AddBar(h,"Task",2001-01-02,2001-01-04,"K2")
var_Items.ItemBar(h,"K2",15,4)
var_Items.AddBar(h,"Task",2001-01-02,2001-01-04,"K3")
var_Items.ItemBar(h,"K3",15,3)
h = var_Items.AddItem("hide on min width, clip if not fit, inside (6-8)")
var_Items.AddBar(h,"Task",2001-01-02,2001-01-04,"K1")
var_Items.ItemBar(h,"K1",15,8)
var_Items.AddBar(h,"Task",2001-01-02,2001-01-04,"K2")
var_Items.ItemBar(h,"K2",15,7)
var_Items.AddBar(h,"Task",2001-01-02,2001-01-04,"K3")
var_Items.ItemBar(h,"K3",15,6)
h = var_Items.AddItem("hide if not fit, no clip, inside (9-11)")
var_Items.AddBar(h,"Task",2001-01-02,2001-01-04,"K1")
var_Items.ItemBar(h,"K1",15,11)
var_Items.AddBar(h,"Task",2001-01-02,2001-01-04,"K2")
var_Items.ItemBar(h,"K2",15,10)
var_Items.AddBar(h,"Task",2001-01-02,2001-01-04,"K3")
var_Items.ItemBar(h,"K3",15,9)
h = var_Items.AddItem("no clip, inside, outside (12-14)")
var_Items.AddBar(h,"Task",2001-01-02,2001-01-04,"K1")
var_Items.ItemBar(h,"K1",15,14)
var_Items.AddBar(h,"Task",2001-01-02,2001-01-04,"K2")
var_Items.ItemBar(h,"K2",4,13)
var_Items.AddBar(h,"Task",2001-01-02,2001-01-04,"K3")
var_Items.ItemBar(h,"K3",15,12)
h = var_Items.AddItem("no clip, outside (16-18)")
var_Items.AddBar(h,"Task",2001-01-02,2001-01-04,"K1")
var_Items.ItemBar(h,"K1",15,18)
var_Items.AddBar(h,"Task",2001-01-02,2001-01-04,"K2")
var_Items.ItemBar(h,"K2",15,17)
var_Items.AddBar(h,"Task",2001-01-02,2001-01-04,"K3")
var_Items.ItemBar(h,"K3",15,16)
oG2antt.EndUpdate()
|
|
1988
|
Is it possible to determine whether a bar is in the current display area
/*begin event BarResizing(long Item,any Key) - Occurs when a bar is moving or resizing.*/
/*
oG2antt = ole_1.Object
oG2antt.Refresh()
*/
/*end event BarResizing*/
/*begin event DateChange() - Occurs when the first visible date is changed.*/
/*
oG2antt = ole_1.Object
oG2antt.Refresh()
*/
/*end event DateChange*/
/*begin event FormatColumn(long Item,long ColIndex,any Value) - Fired when a cell requires to format its caption.*/
/*
any e,l,r,s
oG2antt = ole_1.Object
s = oG2antt.Items.ItemBar(Item,"A",1)
e = oG2antt.Items.ItemBar(Item,"A",2)
l = oG2antt.FormatABC("A < B",e,oG2antt.Chart.FirstVisibleDate)
r = oG2antt.FormatABC("A > B",s,oG2antt.Chart.DateFromPoint(1,-1))
Value = oG2antt.FormatABC("( A or B ) ? `<fgcolor=C0C0C0>hidden` : `<b>visible`",l,r)
*/
/*end event FormatColumn*/
/*begin event LayoutChanged() - Occurs when column's position or column's size is changed.*/
/*
oG2antt = ole_1.Object
oG2antt.Refresh()
*/
/*end event LayoutChanged*/
OleObject oG2antt,var_Chart,var_Column,var_Items
oG2antt = ole_1.Object
oG2antt.BeginUpdate()
oG2antt.SelBackMode = 1
oG2antt.Columns.Add("Tasks")
var_Column = oG2antt.Columns.Add("Visible")
var_Column.FireFormatColumn = true
var_Column.Def(17,1)
var_Chart = oG2antt.Chart
var_Chart.OverviewVisible = -1
var_Chart.OverviewHeight = 64
var_Chart.FirstVisibleDate = 2017-08-01
var_Chart.LevelCount = 2
var_Chart.PaneWidth(false,128)
var_Chart.SelBackColor = oG2antt.SelBackColor
var_Chart.SelBarColor = RGB(128,128,128)
oG2antt.SelBackColor = oG2antt.BackColor
oG2antt.SelForeColor = oG2antt.ForeColor
var_Items = oG2antt.Items
var_Items.AddBar(var_Items.AddItem("Task 1"),"Task",2017-08-02,2017-08-08,"A")
var_Items.AddBar(var_Items.AddItem("Task 2"),"Task",2018-08-03,2018-08-10,"A")
var_Items.AddBar(var_Items.AddItem("Task 3"),"Task",2019-08-04,2019-08-12,"A")
var_Items.SelectItem(var_Items.FocusItem,true)
oG2antt.EndUpdate()
|
|
1987
|
How can I ensure that the bar fits the control's client area
/*begin event SelectionChanged() - Fired after a new item has been selected.*/
/*
any h,k,s
oG2antt = ole_1.Object
h = oG2antt.Items.FocusItem
k = oG2antt.Items.FirstItemBar(h)
s = oG2antt.FormatABC("(A+B)/2",oG2antt.Items.ItemBar(h,k,1),oG2antt.Items.ItemBar(h,k,2))
oG2antt.Chart.ScrollTo(s,1)
*/
/*end event SelectionChanged*/
OleObject oG2antt,var_Chart,var_Items
oG2antt = ole_1.Object
oG2antt.BeginUpdate()
oG2antt.SelBackMode = 1
oG2antt.Columns.Add("Tasks")
var_Chart = oG2antt.Chart
var_Chart.FirstVisibleDate = 2017-08-01
var_Chart.LevelCount = 2
var_Chart.PaneWidth(false,128)
var_Chart.SelBackColor = oG2antt.SelBackColor
var_Chart.SelBarColor = RGB(128,128,128)
var_Items = oG2antt.Items
var_Items.AddBar(var_Items.AddItem("Task 1"),"Task",2017-08-02,2017-08-08)
var_Items.AddBar(var_Items.AddItem("Task 2"),"Task",2018-08-03,2018-08-10)
var_Items.AddBar(var_Items.AddItem("Task 3"),"Task",2019-08-04,2019-08-12)
var_Items.SelectItem(var_Items.FocusItem,true)
oG2antt.EndUpdate()
|
|
1986
|
Is it possible to change the caption from a column without to remove the column and add it with the new caption
OleObject oG2antt
oG2antt = ole_1.Object
oG2antt.Columns.Add("ColumnName").Caption = "NewName"
oG2antt.Columns.Add("ColumnName").HTMLCaption = "<b>New</b>Name"
|
|
1985
|
How can I display the bar's duration in days, minutes, and so so on
OleObject oG2antt,var_Chart,var_Column,var_Columns,var_Items
any h
oG2antt = ole_1.Object
oG2antt.BeginUpdate()
var_Columns = oG2antt.Columns
var_Columns.Add("Tasks").AllowSizing = false
var_Column = var_Columns.Add("Duration")
var_Column.Def(18,513)
var_Column.Def(19,"A")
var_Column.FormatColumn = "trim((1:=int((0:=value)/365) ? =:1 + ` year(s) ` : ``) + (1:=int((0:=(=:0 - (=:1*365)))/31) ? =:1 + ` month(s) ` : ``) + (1:=int((0:=(=:0 - (=:1*31)))/7) ? =:1 + ` week(s) ` : ``) + (1:=int((0:=(=:0 - (=:1*7)))/1) ? =:1 + ` day(s) ` : ``) + (1:=int((0:=(=:0 - =:1 + 1/24/60/60/2))*24) ? =:1 + ` hour(s) ` : ``) + (1:=int((0:=(=:0*24 - =:1))*60) ? =:1 + ` min(s) ` : ``) + (1:=int((0:=(=:0*60 - =:1))*60) ? =:1 + ` sec(s)` : ``))"
oG2antt.Items.AllowCellValueToItemBar = true
var_Chart = oG2antt.Chart
var_Chart.FirstVisibleDate = 2001-12-30
var_Chart.LevelCount = 2
var_Chart.PaneWidth(false,196)
var_Chart.Bars.Add("Task:Split").Shortcut = "Task"
var_Chart.OverviewVisible = -1
var_Chart.OverviewHeight = 64
var_Chart.ResizeUnitScale = 16777216
var_Chart.AllowResizeChart = 262 /*exAllowChangeUnitScale | exAllowResizeChartMiddle | exAllowResizeChartHeader*/
var_Items = oG2antt.Items
h = var_Items.AddItem("Task 1")
var_Items.AddBar(h,"Task",2001-12-31,2002-01-07,"A")
h = var_Items.AddItem("Task 2")
var_Items.AddBar(h,"Task",2002-01-01,2002-02-14,"A")
h = var_Items.AddItem("Task 3")
var_Items.AddBar(h,"Task",DateTime(2002-01-02,10:00:00),DateTime(2002-01-02,12:00:00),"A")
h = var_Items.AddItem("Task 4")
var_Items.AddBar(h,"Task",2002-01-03,DateTime(2002-01-04,08:30:30),"A")
oG2antt.EndUpdate()
|
|
1984
|
How can I change the background color for checked items (EBN color, frame)
/*begin event CellStateChanged(long Item,long ColIndex) - Fired after cell's state has been changed.*/
/*
oG2antt = ole_1.Object
oG2antt.Refresh()
*/
/*end event CellStateChanged*/
OleObject oG2antt,var_Appearance,var_Bar,var_Chart,var_Column,var_ConditionalFormat,var_Items
any h,hChild
oG2antt = ole_1.Object
oG2antt.BeginUpdate()
oG2antt.LinesAtRoot = -1
oG2antt.SelBackMode = 1
oG2antt.DefaultItemHeight = 22
var_Column = oG2antt.Columns.Add("Tasks")
var_Column.Def(0,true)
var_Column.PartialCheck = true
var_Appearance = oG2antt.VisualAppearance
var_Appearance.Add(2,"gBFLBCJwBAEHhEJAAEhABUkIQAAYAQGKIcBiAKBQAGYBIJDEMQ3DjAUBjMK4ZwTC4AIQjCK4JDKHYJRpHEZgLBMJAAGIZYhhUYRUiYMkiJBGGDIDiGGI2SJAcbTVIEcx9EyUJSgSTJOjCMokTTIU4TTLYASbJafJJhWSaAiyMouDIOMg1BDNIw/Hika6jOgKUisNJXRzWIBTbDlOQ3JqnbCjOQRSrQBoNDAMAiiaKlbwJPK9RoieQXfwUAJrXJcFqXFSLVxNBKAQEBA=")
var_Appearance.Add(1,"CP:2 1 1 -1 -1")
var_ConditionalFormat = oG2antt.ConditionalFormats.Add("%CS0 = 1")
var_ConditionalFormat.BackColor = 16777216 /*0x1000000*/
var_ConditionalFormat.ChartBackColor = var_ConditionalFormat.BackColor
oG2antt.HeaderVisible = 1
var_Chart = oG2antt.Chart
var_Chart.FirstVisibleDate = 2017-08-01
var_Chart.LevelCount = 2
var_Chart.PaneWidth(false,128)
var_Bar = var_Chart.Bars.Item("Summary")
var_Bar.StartShape = 0
var_Bar.EndShape = 0
var_Bar.Shape = 20
var_Chart.SelBackColor = oG2antt.SelBackColor
var_Chart.SelBarColor = RGB(128,128,128)
var_Items = oG2antt.Items
h = var_Items.AddItem("Project")
hChild = var_Items.InsertItem(h,,"Task 1")
var_Items.AddBar(hChild,"Task",2017-08-02,2017-08-08)
var_Items.SelectItem(hChild,true)
hChild = var_Items.InsertItem(h,,"Task 2")
var_Items.AddBar(hChild,"Task",2017-08-03,2017-08-10)
var_Items.CellState(hChild,0,1)
hChild = var_Items.InsertItem(h,,"Task 3")
var_Items.AddBar(hChild,"Task",2017-08-04,2017-08-12)
var_Items.CellState(hChild,0,1)
var_Items.AddBar(h,"Summary",2017-08-01,2017-08-01,"sum")
var_Items.DefineSummaryBars(h,"sum",-3,"")
var_Items.ExpandItem(h,true)
oG2antt.EndUpdate()
|
|
1983
|
How can I change the caption of the checked items (sample 2)
OleObject oG2antt,var_Bar,var_Chart,var_Column,var_Items
any h,hChild
oG2antt = ole_1.Object
oG2antt.BeginUpdate()
oG2antt.LinesAtRoot = -1
oG2antt.SelBackColor = oG2antt.BackColor
oG2antt.SelForeColor = oG2antt.ForeColor
var_Column = oG2antt.Columns.Add("Tasks")
var_Column.Def(0,true)
var_Column.PartialCheck = true
var_Column.Def(17,1)
var_Column.FormatColumn = "%CS0 = 1 ? `<bgcolor=000000><fgcolor=FFFFFF> ` + value + ` </fgcolor></bgcolor>` : value"
oG2antt.HeaderVisible = 1
var_Chart = oG2antt.Chart
var_Chart.FirstVisibleDate = 2017-08-01
var_Chart.LevelCount = 2
var_Chart.PaneWidth(false,256)
var_Bar = var_Chart.Bars.Item("Summary")
var_Bar.StartShape = 0
var_Bar.EndShape = 0
var_Bar.Shape = 20
var_Chart.SelBackColor = oG2antt.SelBackColor
var_Chart.SelBarColor = RGB(128,128,128)
var_Items = oG2antt.Items
h = var_Items.AddItem("Project")
hChild = var_Items.InsertItem(h,,"Task 1")
var_Items.AddBar(hChild,"Task",2017-08-02,2017-08-08)
var_Items.SelectItem(hChild,true)
hChild = var_Items.InsertItem(h,,"Task 2")
var_Items.AddBar(hChild,"Task",2017-08-03,2017-08-10)
var_Items.CellState(hChild,0,1)
hChild = var_Items.InsertItem(h,,"Task 3")
var_Items.AddBar(hChild,"Task",2017-08-04,2017-08-12)
var_Items.CellState(hChild,0,1)
var_Items.AddBar(h,"Summary",2017-08-01,2017-08-01,"sum")
var_Items.DefineSummaryBars(h,"sum",-3,"")
var_Items.ExpandItem(h,true)
oG2antt.EndUpdate()
|
|
1982
|
How can I change the caption of the checked items (sample 1)
OleObject oG2antt,var_Bar,var_Chart,var_Column,var_Items
any h,hChild
oG2antt = ole_1.Object
oG2antt.BeginUpdate()
oG2antt.LinesAtRoot = -1
var_Column = oG2antt.Columns.Add("Tasks")
var_Column.Def(0,true)
var_Column.PartialCheck = true
var_Column.Def(17,1)
var_Column.FormatColumn = "value + (%CS0 = 1 ? `<r><fgcolor=808080>(checked)` : ``)"
oG2antt.HeaderVisible = 1
var_Chart = oG2antt.Chart
var_Chart.FirstVisibleDate = 2017-08-01
var_Chart.LevelCount = 2
var_Chart.PaneWidth(false,256)
var_Bar = var_Chart.Bars.Item("Summary")
var_Bar.StartShape = 0
var_Bar.EndShape = 0
var_Bar.Shape = 20
var_Chart.SelBackColor = oG2antt.SelBackColor
var_Chart.SelBarColor = RGB(128,128,128)
var_Items = oG2antt.Items
h = var_Items.AddItem("Project")
hChild = var_Items.InsertItem(h,,"Task 1")
var_Items.AddBar(hChild,"Task",2017-08-02,2017-08-08)
var_Items.SelectItem(hChild,true)
hChild = var_Items.InsertItem(h,,"Task 2")
var_Items.AddBar(hChild,"Task",2017-08-03,2017-08-10)
var_Items.CellState(hChild,0,1)
hChild = var_Items.InsertItem(h,,"Task 3")
var_Items.AddBar(hChild,"Task",2017-08-04,2017-08-12)
var_Items.CellState(hChild,0,1)
var_Items.AddBar(h,"Summary",2017-08-01,2017-08-01,"sum")
var_Items.DefineSummaryBars(h,"sum",-3,"")
var_Items.ExpandItem(h,true)
oG2antt.EndUpdate()
|
|
1981
|
How can I change the font for the checked items
/*begin event CellStateChanged(long Item,long ColIndex) - Fired after cell's state has been changed.*/
/*
oG2antt = ole_1.Object
oG2antt.Refresh()
*/
/*end event CellStateChanged*/
OleObject f,oG2antt,var_Bar,var_Chart,var_Column,var_ConditionalFormat,var_Items
any h,hChild
oG2antt = ole_1.Object
oG2antt.BeginUpdate()
oG2antt.LinesAtRoot = -1
oG2antt.DefaultItemHeight = 22
var_Column = oG2antt.Columns.Add("Tasks")
var_Column.Def(0,true)
var_Column.PartialCheck = true
var_ConditionalFormat = oG2antt.ConditionalFormats.Add("%CS0 = 1")
f = CREATE OLEObject
f.ConnectToNewObject("StdFont")
f.Name = oG2antt.Font.Name
f.Size = 12
var_ConditionalFormat.Font = f
oG2antt.HeaderVisible = 1
var_Chart = oG2antt.Chart
var_Chart.FirstVisibleDate = 2017-08-01
var_Chart.LevelCount = 2
var_Chart.PaneWidth(false,196)
var_Bar = var_Chart.Bars.Item("Summary")
var_Bar.StartShape = 0
var_Bar.EndShape = 0
var_Bar.Shape = 20
var_Chart.SelBackColor = oG2antt.SelBackColor
var_Chart.SelBarColor = RGB(128,128,128)
var_Items = oG2antt.Items
h = var_Items.AddItem("Project")
hChild = var_Items.InsertItem(h,,"Task 1")
var_Items.AddBar(hChild,"Task",2017-08-02,2017-08-08)
var_Items.SelectItem(hChild,true)
hChild = var_Items.InsertItem(h,,"Task 2")
var_Items.AddBar(hChild,"Task",2017-08-03,2017-08-10)
var_Items.CellState(hChild,0,1)
hChild = var_Items.InsertItem(h,,"Task 3")
var_Items.AddBar(hChild,"Task",2017-08-04,2017-08-12)
var_Items.CellState(hChild,0,1)
var_Items.AddBar(h,"Summary",2017-08-01,2017-08-01,"sum")
var_Items.DefineSummaryBars(h,"sum",-3,"")
var_Items.ExpandItem(h,true)
oG2antt.EndUpdate()
|
|
1980
|
How can I bold the checked items
/*begin event CellStateChanged(long Item,long ColIndex) - Fired after cell's state has been changed.*/
/*
oG2antt = ole_1.Object
oG2antt.Refresh()
*/
/*end event CellStateChanged*/
OleObject oG2antt,var_Bar,var_Chart,var_Column,var_ConditionalFormat,var_Items
any h,hChild
oG2antt = ole_1.Object
oG2antt.BeginUpdate()
oG2antt.LinesAtRoot = -1
var_Column = oG2antt.Columns.Add("Tasks")
var_Column.Def(0,true)
var_Column.PartialCheck = true
var_ConditionalFormat = oG2antt.ConditionalFormats.Add("%CS0 = 1")
var_ConditionalFormat.Bold = true
oG2antt.HeaderVisible = 1
var_Chart = oG2antt.Chart
var_Chart.FirstVisibleDate = 2017-08-01
var_Chart.LevelCount = 2
var_Chart.PaneWidth(false,128)
var_Bar = var_Chart.Bars.Item("Summary")
var_Bar.StartShape = 0
var_Bar.EndShape = 0
var_Bar.Shape = 20
var_Chart.SelBackColor = oG2antt.SelBackColor
var_Chart.SelBarColor = RGB(128,128,128)
var_Items = oG2antt.Items
h = var_Items.AddItem("Project")
hChild = var_Items.InsertItem(h,,"Task 1")
var_Items.AddBar(hChild,"Task",2017-08-02,2017-08-08)
var_Items.SelectItem(hChild,true)
hChild = var_Items.InsertItem(h,,"Task 2")
var_Items.AddBar(hChild,"Task",2017-08-03,2017-08-10)
var_Items.CellState(hChild,0,1)
hChild = var_Items.InsertItem(h,,"Task 3")
var_Items.AddBar(hChild,"Task",2017-08-04,2017-08-12)
var_Items.CellState(hChild,0,1)
var_Items.AddBar(h,"Summary",2017-08-01,2017-08-01,"sum")
var_Items.DefineSummaryBars(h,"sum",-3,"")
var_Items.ExpandItem(h,true)
oG2antt.EndUpdate()
|
|
1979
|
How can I change the foreground color for checked items
/*begin event CellStateChanged(long Item,long ColIndex) - Fired after cell's state has been changed.*/
/*
oG2antt = ole_1.Object
oG2antt.Refresh()
*/
/*end event CellStateChanged*/
OleObject oG2antt,var_Bar,var_Chart,var_Column,var_ConditionalFormat,var_Items
any h,hChild
oG2antt = ole_1.Object
oG2antt.BeginUpdate()
oG2antt.LinesAtRoot = -1
oG2antt.SelBackMode = 1
var_Column = oG2antt.Columns.Add("Tasks")
var_Column.Def(0,true)
var_Column.PartialCheck = true
var_ConditionalFormat = oG2antt.ConditionalFormats.Add("%CS0 = 1")
var_ConditionalFormat.ForeColor = RGB(255,128,128)
oG2antt.HeaderVisible = 1
var_Chart = oG2antt.Chart
var_Chart.FirstVisibleDate = 2017-08-01
var_Chart.LevelCount = 2
var_Chart.PaneWidth(false,128)
var_Bar = var_Chart.Bars.Item("Summary")
var_Bar.StartShape = 0
var_Bar.EndShape = 0
var_Bar.Shape = 20
var_Chart.SelBackColor = oG2antt.SelBackColor
var_Chart.SelBarColor = RGB(128,128,128)
var_Items = oG2antt.Items
h = var_Items.AddItem("Project")
hChild = var_Items.InsertItem(h,,"Task 1")
var_Items.AddBar(hChild,"Task",2017-08-02,2017-08-08)
var_Items.SelectItem(hChild,true)
hChild = var_Items.InsertItem(h,,"Task 2")
var_Items.AddBar(hChild,"Task",2017-08-03,2017-08-10)
var_Items.CellState(hChild,0,1)
hChild = var_Items.InsertItem(h,,"Task 3")
var_Items.AddBar(hChild,"Task",2017-08-04,2017-08-12)
var_Items.CellState(hChild,0,1)
var_Items.AddBar(h,"Summary",2017-08-01,2017-08-01,"sum")
var_Items.DefineSummaryBars(h,"sum",-3,"")
var_Items.ExpandItem(h,true)
oG2antt.EndUpdate()
|
|
1978
|
How can I change the background color for checked items (solid color)
/*begin event CellStateChanged(long Item,long ColIndex) - Fired after cell's state has been changed.*/
/*
oG2antt = ole_1.Object
oG2antt.Refresh()
*/
/*end event CellStateChanged*/
OleObject oG2antt,var_Bar,var_Chart,var_Column,var_ConditionalFormat,var_Items
any h,hChild
oG2antt = ole_1.Object
oG2antt.BeginUpdate()
oG2antt.LinesAtRoot = -1
oG2antt.SelBackMode = 1
var_Column = oG2antt.Columns.Add("Tasks")
var_Column.Def(0,true)
var_Column.PartialCheck = true
var_ConditionalFormat = oG2antt.ConditionalFormats.Add("%CS0 = 1")
var_ConditionalFormat.BackColor = RGB(255,128,128)
var_ConditionalFormat.ChartBackColor = var_ConditionalFormat.BackColor
oG2antt.HeaderVisible = 1
var_Chart = oG2antt.Chart
var_Chart.FirstVisibleDate = 2017-08-01
var_Chart.LevelCount = 2
var_Chart.PaneWidth(false,128)
var_Bar = var_Chart.Bars.Item("Summary")
var_Bar.StartShape = 0
var_Bar.EndShape = 0
var_Bar.Shape = 20
var_Chart.SelBackColor = oG2antt.SelBackColor
var_Chart.SelBarColor = RGB(128,128,128)
var_Items = oG2antt.Items
h = var_Items.AddItem("Project")
hChild = var_Items.InsertItem(h,,"Task 1")
var_Items.AddBar(hChild,"Task",2017-08-02,2017-08-08)
var_Items.SelectItem(hChild,true)
hChild = var_Items.InsertItem(h,,"Task 2")
var_Items.AddBar(hChild,"Task",2017-08-03,2017-08-10)
var_Items.CellState(hChild,0,1)
hChild = var_Items.InsertItem(h,,"Task 3")
var_Items.AddBar(hChild,"Task",2017-08-04,2017-08-12)
var_Items.CellState(hChild,0,1)
var_Items.AddBar(h,"Summary",2017-08-01,2017-08-01,"sum")
var_Items.DefineSummaryBars(h,"sum",-3,"")
var_Items.ExpandItem(h,true)
oG2antt.EndUpdate()
|
|
1977
|
How can I change the color for checked Task bars
OleObject oG2antt,var_Bar,var_Chart,var_Column,var_ConditionalFormat,var_Items
any h,hChild
oG2antt = ole_1.Object
oG2antt.BeginUpdate()
oG2antt.LinesAtRoot = -1
var_Column = oG2antt.Columns.Add("Tasks")
var_Column.Def(0,true)
var_Column.PartialCheck = true
var_ConditionalFormat = oG2antt.ConditionalFormats.Add("%CS0 = 1")
var_ConditionalFormat.ApplyToBars = "Task,Summary"
var_ConditionalFormat.BarColor = RGB(255,0,0)
oG2antt.HeaderVisible = 1
oG2antt.SelBackColor = RGB(240,240,240)
oG2antt.SelForeColor = RGB(0,0,0)
var_Chart = oG2antt.Chart
var_Chart.FirstVisibleDate = 2017-08-01
var_Chart.LevelCount = 2
var_Chart.PaneWidth(false,128)
var_Bar = var_Chart.Bars.Item("Summary")
var_Bar.StartShape = 0
var_Bar.EndShape = 0
var_Bar.Shape = 20
var_Chart.SelBackColor = oG2antt.SelBackColor
var_Chart.SelBarColor = RGB(128,128,128)
var_Items = oG2antt.Items
h = var_Items.AddItem("Project")
hChild = var_Items.InsertItem(h,,"Task 1")
var_Items.AddBar(hChild,"Task",2017-08-02,2017-08-08)
var_Items.SelectItem(hChild,true)
hChild = var_Items.InsertItem(h,,"Task 2")
var_Items.AddBar(hChild,"Task",2017-08-03,2017-08-10)
var_Items.CellState(hChild,0,1)
hChild = var_Items.InsertItem(h,,"Task 3")
var_Items.AddBar(hChild,"Task",2017-08-04,2017-08-12)
var_Items.CellState(hChild,0,1)
var_Items.AddBar(h,"Summary",2017-08-01,2017-08-01,"sum")
var_Items.DefineSummaryBars(h,"sum",-3,"")
var_Items.ExpandItem(h,true)
oG2antt.EndUpdate()
|
|
1976
|
I have defined "NonWorkingHours" for the Gantt, and the "exBarWorkingCount" properly excludes these hours as long as the Gantt is using "exDay" or "exHour" as the level unit. However when displaying a quarter or a year, I'm changing the unit to "exWeek", but then the "NonWorkingHours" are no longer excluded from the bars "exBarWorkingCount" and displays the wrong value
OleObject oG2antt,var_Chart,var_Chart1,var_Column,var_Columns,var_Items
any h
oG2antt = ole_1.Object
oG2antt.BeginUpdate()
var_Columns = oG2antt.Columns
var_Columns.Add("Tasks").AllowSizing = false
var_Column = var_Columns.Add("Working")
var_Column.Def(18,258)
var_Column.Def(19,"A")
var_Column.FormatColumn = "((1:=int(0:=( 24*int(value) + (value - int(value) + 1/24/60/60/2)*24))) != 0 ? =:1 + ' hour(s)' : '' ) + (=:1 ? ' ' : '' ) + ((1:=round((=:0 - =:1)*60)) != 0 ? =:1 + ' min(s)' : '')"
oG2antt.Items.AllowCellValueToItemBar = true
var_Chart = oG2antt.Chart
var_Chart.AllowResizeChart = 262 /*exAllowChangeUnitScale | exAllowResizeChartMiddle | exAllowResizeChartHeader*/
var_Chart.PaneWidth(false,196)
var_Chart.Bars.Add("Task:Split").Shortcut = "Task"
var_Chart.FirstVisibleDate = 2002-01-03
var_Chart.LevelCount = 2
var_Chart.Level(0).Label = "<%ddd%>"
var_Chart.Level(1).Label = "<%hh%>"
var_Chart.NonworkingHours = 16761855
var_Chart.ShowNonworkingUnits = false
var_Chart.ShowNonworkingUnits = false
var_Chart.OverviewVisible = -1
var_Chart.OverviewHeight = 64
var_Chart.AllowOverviewZoom = 1
var_Items = oG2antt.Items
h = var_Items.AddItem("Task 1")
var_Items.AddBar(h,"Task",2002-01-04,2002-01-08,"A")
var_Items.ItemBar(h,"A",20,true)
h = var_Items.AddItem("Task 2")
var_Items.AddBar(h,"Task",2002-01-03,2002-01-04,"A")
var_Items.ItemBar(h,"A",20,true)
var_Chart1 = oG2antt.Chart
var_Chart1.UnitScale = 4096
var_Chart1.ScrollTo(var_Chart1.FirstVisibleDate,1)
oG2antt.EndUpdate()
|
|
1975
|
Is it possible to customize the editor selection colour of the built in text editor, from standard blue to black
OleObject oG2antt,var_Editor,var_Items
oG2antt = ole_1.Object
oG2antt.BeginUpdate()
oG2antt.Chart.PaneWidth(true,0)
oG2antt.SelBackColor = RGB(0,0,0)
oG2antt.SelForeColor = RGB(255,255,255)
oG2antt.Chart.PaneWidth(true,0)
var_Editor = oG2antt.Columns.Add("Edit").Editor
var_Editor.EditType = 8
var_Editor.Mask = ";;;rich"
var_Items = oG2antt.Items
var_Items.AddItem("")
var_Items.AddItem("Just a text")
var_Items.AddItem("")
oG2antt.EndUpdate()
|
|
1974
|
Is it possible to customize the editor selection colour of the built in dropdown editor, from standard blue to black
OleObject oG2antt,var_Editor,var_Items
oG2antt = ole_1.Object
oG2antt.BeginUpdate()
oG2antt.SelBackColor = RGB(0,0,0)
oG2antt.SelForeColor = RGB(255,255,255)
oG2antt.Chart.PaneWidth(true,0)
var_Editor = oG2antt.Columns.Add("DropDown").Editor
var_Editor.AddItem(1,"This is just the first item")
var_Editor.AddItem(2,"This is just the second item")
var_Editor.AddItem(3,"This is just the third item")
var_Editor.EditType = 2
var_Editor.Mask = ";;;rich"
var_Items = oG2antt.Items
var_Items.AddItem("")
var_Items.AddItem("Just a text")
var_Items.AddItem("")
oG2antt.EndUpdate()
|
|
1973
|
When I display the chart in the daily view, the histogram shows correctly the data while if the chart displays the data in weekly or monthly view, the histogram shows no data or incorrectly. What can be the problem
/*begin event OverviewZoom() - Occurs once the user selects a new time scale unit in the overview zoom area.*/
/*
oG2antt = ole_1.Object
oG2antt.Chart.ResizeUnitScale = 4096
*/
/*end event OverviewZoom*/
OleObject oG2antt,var_Bar,var_Chart,var_Column,var_Items
any h1
oG2antt = ole_1.Object
oG2antt.BeginUpdate()
oG2antt.Columns.Add("Tasks")
var_Column = oG2antt.Columns.Add("Effort")
var_Column.Def(18,21)
var_Column.Editor.EditType = 4
var_Chart = oG2antt.Chart
var_Chart.AllowOverviewZoom = 1
var_Chart.OverviewZoomCaption = "|||<img>3</img>Month|Third|<img>2</img>Week|<img>1</img>Day|||"
var_Chart.Label(0,"")
var_Chart.Label(1,"")
var_Chart.Label(2,"")
var_Chart.Label(17,"")
var_Chart.Label(65536,"")
var_Chart.Label(1048576,"")
var_Chart.Label(16777216,"")
var_Chart.OverviewZoomUnit = 64
var_Chart.LevelCount = 2
var_Chart.NonworkingDays = 0
var_Chart.PaneWidth(false,96)
var_Chart.FirstVisibleDate = 2005-06-20
var_Chart.HistogramVisible = true
var_Chart.HistogramHeight = 128
var_Chart.HistogramView = 112
var_Chart.OverviewVisible = -1
var_Bar = var_Chart.Bars.Item("Task")
var_Bar.HistogramPattern = var_Bar.Pattern
var_Bar.HistogramType = 0
var_Bar.HistogramCriticalValue = 3
var_Bar.HistogramItems = -7
var_Bar.HistogramGridLinesColor = RGB(192,192,192)
var_Bar.HistogramRulerLinesColor = RGB(0,0,1)
var_Items = oG2antt.Items
var_Items.AllowCellValueToItemBar = true
h1 = var_Items.AddItem("Task 1")
var_Items.AddBar(h1,"Task",2005-06-21,2005-06-23)
var_Items.CellValue(h1,1,4)
h1 = var_Items.AddItem("Task 2")
var_Items.AddBar(h1,"Task",2005-06-24,2005-06-26)
var_Items.CellValue(h1,1,3)
h1 = var_Items.AddItem("Task 3")
var_Items.AddBar(h1,"Task",2005-06-27,2005-06-29)
var_Items.CellValue(h1,1,2)
h1 = var_Items.AddItem("Task 4")
var_Items.AddBar(h1,"Task",2005-06-30,2005-07-02)
var_Items.CellValue(h1,1,1)
oG2antt.EndUpdate()
|
|
1972
|
The BeforeExpandItem event is fired when clicking the drop down filter button. What we can do to prevent that
/*begin event BeforeExpandItem(long Item,any Cancel) - Fired before an item is about to be expanded (collapsed).*/
/*
oG2antt = ole_1.Object
MessageBox("Information",string( "BeforeExpandItem" ))
MessageBox("Information",string( String(Item) ))
MessageBox("Information",string( "ColumnFromPoint" ))
MessageBox("Information",string( String(oG2antt.ColumnFromPoint(-1,-1)) ))
MessageBox("Information",string( "ColumnFromPoint return -1, if the user clicks the +/- glitch, else it returns the index of the column where the click occurs." ))
oG2antt.Items.InsertItem(Item,,"new child")
*/
/*end event BeforeExpandItem*/
OleObject oG2antt,var_Columns,var_Items
oG2antt = ole_1.Object
oG2antt.BeginUpdate()
oG2antt.Chart.PaneWidth(true,0)
oG2antt.LinesAtRoot = -1
var_Columns = oG2antt.Columns
var_Columns.Add("Items").DisplayFilterButton = true
var_Items = oG2antt.Items
var_Items.ItemHasChildren(var_Items.InsertItem(,,"Group 1"),true)
var_Items.ItemHasChildren(var_Items.InsertItem(,,"Group 2"),true)
oG2antt.EndUpdate()
|
|
1971
|
How do I change the drop down filter icon/button (black)
OleObject oG2antt,var_Appearance,var_Chart,var_Column,var_Items
oG2antt = ole_1.Object
oG2antt.BeginUpdate()
var_Appearance = oG2antt.VisualAppearance
var_Appearance.Add(1,"gBFLBCJwBAEHhEJAAEhABXUIQAAYAQGKIcBiAKBQAGYBIJDEMgzDDAUBjKKocQTC4AIQjCK4JDKHYJRpHEZyCA8EhqGASRAFUQBYiWE4oSpLABQaK0ZwIGyRIrkGQgQgmPYDSDNU4zVIEEglBI0TDNczhNDENgtGYaJqHIYpZBcM40TKkEZoSIITZcRrOEBiRL1S0RBhGcRUHZlWzdN64LhuK47UrWdD/XhdVzXRbjfz1Oq+bxve48Br7A5yYThdr4LhOFQ3RjIL4xbIcUwGe6VZhjOLZXjmO49T69HTtOCYBEBA")
oG2antt.Background(32,-1)
oG2antt.Background(0,16777216 /*0x1000000*/)
oG2antt.Background(26,RGB(0,0,1))
oG2antt.Background(27,RGB(255,255,255))
oG2antt.Description(25,"<bgcolor 0><fgcolor ffffff> Exclude </fgcolor></bgcolor>")
oG2antt.HeaderAppearance = 0
oG2antt.BackColorHeader = RGB(0,0,0)
oG2antt.ForeColorHeader = RGB(255,255,255)
oG2antt.HeaderVisible = true
oG2antt.BackColorLevelHeader = oG2antt.BackColor
var_Column = oG2antt.Columns.Add("Filter")
var_Column.FilterList = 8448 /*exShowExclude | exShowCheckBox*/
var_Column.DisplayFilterButton = true
var_Column.AllowSort = false
var_Column.AllowDragging = false
var_Chart = oG2antt.Chart
var_Chart.PaneWidth(false,196)
var_Chart.LevelCount = 2
var_Chart.BackColorLevelHeader = oG2antt.BackColorHeader
var_Chart.ForeColorLevelHeader = oG2antt.ForeColorHeader
var_Items = oG2antt.Items
var_Items.AddItem("One")
var_Items.AddItem("Two")
var_Items.AddItem("Three")
oG2antt.EndUpdate()
|
|
1970
|
How do I change the z-order of the bars (percent)
/*begin event MouseMove(integer Button,integer Shift,long X,long Y) - Occurs when the user moves the mouse.*/
/*
any b,i
oG2antt = ole_1.Object
b = oG2antt.Chart.BarFromPoint(-1,-1)
i = oG2antt.ItemFromPoint(-1,-1,c,hit)
MessageBox("Information",string( String(oG2antt.Items.ItemBar(i,b,6)) ))
*/
/*end event MouseMove*/
OleObject oG2antt,var_Bar,var_Bar1,var_Chart,var_Items
any h1
oG2antt = ole_1.Object
oG2antt.BeginUpdate()
oG2antt.Columns.Add("Tasks")
oG2antt.DefaultItemHeight = 52
var_Chart = oG2antt.Chart
var_Chart.LevelCount = 2
var_Chart.FirstVisibleDate = 2017-10-10
var_Chart.PaneWidth(false,0)
var_Chart.NonworkingDays = 0
var_Chart.MarkTodayColor = var_Chart.BackColor
var_Chart.Bars.Add("Task%Progress").Shortcut = "Task"
var_Bar = var_Chart.Bars.Copy("Task","T1")
var_Bar.Color = RGB(255,0,0)
var_Bar.Def(3,"<%=%17 + `<b><font ;6><off -4> (z-key `+%9+`)`%>")
var_Bar.Def(4,18)
var_Bar.Def(12,0.25)
var_Bar.Def(39,var_Bar.Color)
var_Bar.Def(18,10)
var_Bar.Def(14,true)
var_Bar.Def(13,"<font ;6><b>%p%</b>")
var_Bar1 = var_Chart.Bars.Copy("Task","T2")
var_Bar1.Height = 26
var_Bar1.Def(3,"<%=%17 + `<b><font ;6><off -4> (z-key `+%9+`)`%>")
var_Bar1.Def(5,16)
var_Bar1.Def(12,0.25)
var_Bar1.Def(39,var_Bar1.Color)
var_Bar1.Def(14,true)
var_Bar1.Def(13,"<font ;6><b>%p%</b>")
var_Items = oG2antt.Items
h1 = var_Items.AddItem("Task")
var_Items.AddBar(h1,"T1",2017-10-15,2017-10-25,"2")
var_Items.ItemBar(h1,"2",17,"Bar A")
var_Items.ItemBar(h1,"2",6,"Bar A <b>Over</b> Bar B")
var_Items.AddBar(h1,"T2",2017-10-18,2017-10-22,"1")
var_Items.ItemBar(h1,"1",17,"Bar B")
var_Items.ItemBar(h1,"1",6,"Bar B <b>Under</b> Bar A")
h1 = var_Items.AddItem("Task")
var_Items.AddBar(h1,"T1",2017-10-15,2017-10-25,"1")
var_Items.ItemBar(h1,"1",17,"Bar A")
var_Items.ItemBar(h1,"1",6,"Bar A <b>Under</b> Bar B")
var_Items.AddBar(h1,"T2",2017-10-18,2017-10-22,"2")
var_Items.ItemBar(h1,"2",17,"Bar B")
var_Items.ItemBar(h1,"2",6,"Bar B <b>Over</b> Bar A")
oG2antt.EndUpdate()
|
|
1969
|
How do I change the z-order of the bars
/*begin event MouseMove(integer Button,integer Shift,long X,long Y) - Occurs when the user moves the mouse.*/
/*
any b,i
oG2antt = ole_1.Object
b = oG2antt.Chart.BarFromPoint(-1,-1)
i = oG2antt.ItemFromPoint(-1,-1,c,hit)
MessageBox("Information",string( String(oG2antt.Items.ItemBar(i,b,6)) ))
*/
/*end event MouseMove*/
OleObject oG2antt,var_Bar,var_Bar1,var_Chart,var_Items
any h1
oG2antt = ole_1.Object
oG2antt.BeginUpdate()
oG2antt.Columns.Add("Tasks")
oG2antt.DefaultItemHeight = 52
var_Chart = oG2antt.Chart
var_Chart.LevelCount = 2
var_Chart.FirstVisibleDate = 2017-10-10
var_Chart.PaneWidth(false,0)
var_Chart.NonworkingDays = 0
var_Chart.MarkTodayColor = var_Chart.BackColor
var_Bar = var_Chart.Bars.Copy("Task","T1")
var_Bar.Color = RGB(255,0,0)
var_Bar.Def(3,"<%=%17 + `<b><font ;6><off -4> (z-key `+%9+`)`%>")
var_Bar.Def(4,18)
var_Bar1 = var_Chart.Bars.Copy("Task","T2")
var_Bar1.Height = 25
var_Bar1.Def(3,"<%=%17 + `<b><font ;6><off -4> (z-key `+%9+`)`%>")
var_Bar1.Def(5,16)
var_Items = oG2antt.Items
h1 = var_Items.AddItem("Task")
var_Items.AddBar(h1,"T1",2017-10-15,2017-10-25,"2")
var_Items.ItemBar(h1,"2",17,"Bar A")
var_Items.ItemBar(h1,"2",6,"Bar A <b>Over</b> Bar B")
var_Items.AddBar(h1,"T2",2017-10-18,2017-10-22,"1")
var_Items.ItemBar(h1,"1",17,"Bar B")
var_Items.ItemBar(h1,"1",6,"Bar B <b>Under</b> Bar A")
h1 = var_Items.AddItem("Task")
var_Items.AddBar(h1,"T1",2017-10-15,2017-10-25,"1")
var_Items.ItemBar(h1,"1",17,"Bar A")
var_Items.ItemBar(h1,"1",6,"Bar A <b>Under</b> Bar B")
var_Items.AddBar(h1,"T2",2017-10-18,2017-10-22,"2")
var_Items.ItemBar(h1,"2",17,"Bar B")
var_Items.ItemBar(h1,"2",6,"Bar B <b>Over</b> Bar A")
oG2antt.EndUpdate()
|
|
1968
|
How do I get the duration/working count of the bar (sample 6,excrd)
OleObject oG2antt,var_Bar,var_Chart,var_Column,var_Column1,var_Column2,var_Items
oG2antt = ole_1.Object
oG2antt.BeginUpdate()
oG2antt.DefaultItemHeight = 48
oG2antt.ShowFocusRect = false
oG2antt.SelBackMode = 1
oG2antt.BackColorLevelHeader = oG2antt.BackColor
oG2antt.DrawGridLines = -1
var_Chart = oG2antt.Chart
var_Chart.DrawGridLines = 1
var_Chart.PaneWidth(false,64)
var_Chart.LevelCount = 2
var_Chart.FirstVisibleDate = 2001-12-26
var_Bar = var_Chart.Bars.Add("Task:Split")
var_Bar.Shortcut = "Task"
var_Bar.Def(6,"<%=%263%>")
var_Bar.Def(18,-12)
var_Chart.ColumnsFormatLevel = "1,2/3"
oG2antt.Columns.Add("Tasks")
var_Column = oG2antt.Columns.Add("Duration")
var_Column.Def(18,513)
var_Column.Visible = false
var_Column.Alignment = 0
var_Column.FormatColumn = "value + `d`"
var_Column1 = oG2antt.Columns.Add("Working")
var_Column1.Def(18,258)
var_Column1.Visible = false
var_Column1.Alignment = 2
var_Column1.FormatColumn = "value + `w`"
var_Column2 = oG2antt.Columns.Add("Working-Period")
var_Column2.Def(18,263)
var_Column2.Visible = false
var_Column2.Alignment = 1
var_Column2.FormatColumn = "((value replace `\r\n` with `,`) replace `#` with ``) replace ` ` with ``"
var_Items = oG2antt.Items
var_Items.AllowCellValueToItemBar = true
var_Items.AddBar(var_Items.AddItem("Task 1"),"Task",2002-01-02,2002-01-11)
var_Items.AddBar(var_Items.AddItem("Task 2"),"Task",2002-01-03,2002-01-15)
var_Items.AddBar(var_Items.AddItem("Task 3"),"Task",2001-12-31,2002-01-13)
oG2antt.EndUpdate()
|
|
1967
|
How do I get the duration/working count of the bar (sample 5)
/*begin event AddItem(long Item) - Occurs after a new Item has been inserted to Items collection.*/
/*
OleObject var_Items
oG2antt = ole_1.Object
var_Items = oG2antt.Items
var_Items.ItemMaxHeight(Item,64)
*/
/*end event AddItem*/
OleObject oG2antt,var_Bar,var_Chart,var_Column,var_Column1,var_Column2,var_Column3,var_Items
oG2antt = ole_1.Object
oG2antt.BeginUpdate()
oG2antt.BackColorAlternate = RGB(240,240,240)
var_Chart = oG2antt.Chart
var_Chart.PaneWidth(false,256)
var_Chart.LevelCount = 2
var_Chart.FirstVisibleDate = 2002-01-01
var_Bar = var_Chart.Bars.Add("Task:Split")
var_Bar.Shortcut = "Task"
var_Bar.Def(6,"<%=%263%>")
var_Chart.ColumnsFormatLevel = "1,2"
var_Chart.SelBackColor = oG2antt.SelBackColor
var_Column = oG2antt.Columns.Add("Task")
var_Column.AllowSizing = false
var_Column.Width = 48
var_Column1 = oG2antt.Columns.Add("Duration")
var_Column1.Def(18,513)
var_Column1.Visible = false
var_Column1.Alignment = 0
var_Column2 = oG2antt.Columns.Add("Working")
var_Column2.Def(18,258)
var_Column2.Visible = false
var_Column2.Alignment = 2
var_Column3 = oG2antt.Columns.Add("Working-Period")
var_Column3.Def(18,263)
var_Column3.Def(16,false)
var_Items = oG2antt.Items
var_Items.AllowCellValueToItemBar = true
var_Items.AddBar(var_Items.AddItem("Task 1"),"Task",2002-01-02,2002-01-12)
var_Items.AddBar(var_Items.AddItem("Task 2"),"Task",2002-01-03,2002-01-15)
var_Items.AddBar(var_Items.AddItem("Task 2"),"Task",2002-01-04,2002-01-16)
oG2antt.EndUpdate()
|
|
1966
|
How do I get the duration/working count of the bar (sample 4)
OleObject oG2antt,var_Chart,var_Column,var_Column1,var_Items
oG2antt = ole_1.Object
oG2antt.BeginUpdate()
var_Chart = oG2antt.Chart
var_Chart.PaneWidth(false,64)
var_Chart.LevelCount = 2
var_Chart.FirstVisibleDate = 2001-12-26
var_Chart.Bars.Add("Task:Split").Shortcut = "Task"
var_Chart.ColumnsFormatLevel = "1,2"
oG2antt.Columns.Add("Task").Width = 48
var_Column = oG2antt.Columns.Add("Duration")
var_Column.Def(18,513)
var_Column.Visible = false
var_Column.Alignment = 0
var_Column.FormatColumn = "value + `d`"
var_Column1 = oG2antt.Columns.Add("Working")
var_Column1.Def(18,258)
var_Column1.Visible = false
var_Column1.Alignment = 2
var_Column1.FormatColumn = "value + `w`"
var_Items = oG2antt.Items
var_Items.AllowCellValueToItemBar = true
var_Items.AddBar(var_Items.AddItem("Task 1"),"Task",2002-01-02,2002-01-12)
var_Items.AddBar(var_Items.AddItem("Task 2"),"Task",2002-01-03,2002-01-15)
oG2antt.EndUpdate()
|
|
1965
|
How do I get the duration/working count of the bar (sample 3)
/*begin event BarResizing(long Item,any Key) - Occurs when a bar is moving or resizing.*/
/*
OleObject var_Items
oG2antt = ole_1.Object
var_Items = oG2antt.Items
MessageBox("Information",string( var_Items.CellCaption(Item,0) ))
MessageBox("Information",string( "Working" ))
MessageBox("Information",string( String(var_Items.ItemBar(Item,Key,258)) ))
MessageBox("Information",string( var_Items.CellCaption(Item,0) ))
MessageBox("Information",string( "Duration" ))
MessageBox("Information",string( String(var_Items.ItemBar(Item,Key,513)) ))
*/
/*end event BarResizing*/
OleObject oG2antt,var_Chart,var_Items
oG2antt = ole_1.Object
oG2antt.BeginUpdate()
var_Chart = oG2antt.Chart
var_Chart.PaneWidth(false,64)
var_Chart.LevelCount = 2
var_Chart.FirstVisibleDate = 2001-12-26
var_Chart.Bars.Add("Task:Split").Shortcut = "Task"
oG2antt.Columns.Add("Task").Width = 48
var_Items = oG2antt.Items
var_Items.AddBar(var_Items.AddItem("Task 1"),"Task",2002-01-02,2002-01-12)
var_Items.AddBar(var_Items.AddItem("Task 2"),"Task",2002-01-03,2002-01-15)
oG2antt.EndUpdate()
|
|
1964
|
How do I get the duration/working count of the bar (sample 2)
OleObject oG2antt,var_Bar,var_Chart,var_Items
oG2antt = ole_1.Object
oG2antt.BeginUpdate()
var_Chart = oG2antt.Chart
var_Chart.PaneWidth(false,64)
var_Chart.LevelCount = 2
var_Chart.FirstVisibleDate = 2001-12-26
var_Bar = var_Chart.Bars.Add("Task:Split")
var_Bar.Shortcut = "Task"
var_Bar.Def(3,"<%=%258%>w")
var_Bar.Def(4,18)
var_Bar.Def(44,"<%=%513%>d")
var_Bar.Def(45,16)
oG2antt.Columns.Add("Task").Width = 48
var_Items = oG2antt.Items
var_Items.AddBar(var_Items.AddItem("Task 1"),"Task",2002-01-02,2002-01-12)
var_Items.AddBar(var_Items.AddItem("Task 2"),"Task",2002-01-03,2002-01-15)
oG2antt.EndUpdate()
|
|
1963
|
How do I get the duration/working count of the bar (sample 1)
OleObject oG2antt,var_Chart,var_Items
oG2antt = ole_1.Object
oG2antt.BeginUpdate()
var_Chart = oG2antt.Chart
var_Chart.PaneWidth(false,196)
var_Chart.LevelCount = 2
var_Chart.FirstVisibleDate = 2002-01-01
var_Chart.Bars.Add("Task:Split").Shortcut = "Task"
oG2antt.Columns.Add("Task").Width = 48
oG2antt.Columns.Add("Duration").Def(18,513)
oG2antt.Columns.Add("Working").Def(18,258)
var_Items = oG2antt.Items
var_Items.AllowCellValueToItemBar = true
var_Items.AddBar(var_Items.AddItem("Task 1"),"Task",2002-01-02,2002-01-12)
var_Items.AddBar(var_Items.AddItem("Task 2"),"Task",2002-01-03,2002-01-15)
oG2antt.EndUpdate()
|
|
1962
|
How can I draw a solid frame around the the focusing item
OleObject oG2antt,var_Appearance,var_Column,var_Items
any h
oG2antt = ole_1.Object
oG2antt.BeginUpdate()
oG2antt.SingleSel = false
oG2antt.DefaultItemHeight = 20
var_Appearance = oG2antt.VisualAppearance
var_Appearance.RenderType = -1
var_Appearance.Add(1,"gBFLBCJwBAEHhEJAAEhABOkGACAADACAxRDgMQBQKAAzAJBIYhkGYYYCgMZRUDGCYXABCEYRXBKUQSDqEYyjGLIXAWCYSAAMIwDKAUEwpFAZBhgeDYMiSNoYDJCM4wHIURRJFCUJSGWQpTgSIgyT5HFIxXKoASbJabZLhWS6EpWOotTbIQQRYCkEyfKKfZyGURZQqOKA1DBZErWTJESRFJqLazgO4LAhyQYrVgAErzVKVCRNOqbJzADApdpGQJTULDNTQHRFIyhOSnIRrWbMAhid6JUZiVT4dBOIYhSYANAqCwLFqrDJmWrpV5WZjlZ47V6BdAyXJsIrmFJEXaOGhyDDlGybSDZYryfZhUziUw4XjbWwZDqPF6DKTTdSGLREE8WZVlURZvDaep3C+AY8kAYRgGCCBJECUhjDoHROEYWgoAGTQ1CEEx9lGMY0CQUYSnuZQDBGBYFlOH5+H+igGAKAJgEgFgGgGVgDn4CoCmCSA2A6A5hAgDgQgSYRIE4EoFGGCBiBeBhhkgPgbgcYgICoH4IGGWIOCSBhiGiHgVgoYooFoAoLGIWI+DCCgjCiTgrgII4ImYOoOmOSJ2AYOpWlQDQBICA=")
oG2antt.ShowFocusRect = true
oG2antt.Background(19,16777216 /*0x1000000*/)
oG2antt.LinesAtRoot = -1
oG2antt.Chart.PaneWidth(true,1)
var_Column = oG2antt.Columns.Add("P1")
var_Column.Def(0,true)
var_Column.PartialCheck = true
var_Items = oG2antt.Items
h = var_Items.AddItem("Root")
var_Items.InsertItem(h,,"Child 1")
var_Items.InsertItem(h,,"Child 2")
var_Items.ExpandItem(h,true)
oG2antt.EndUpdate()
|
|
1961
|
The frame around the focusing item is not very clear. Can I show it larger or more cleared (sample 2)
OleObject oG2antt,var_Appearance,var_Column,var_Items
any h
oG2antt = ole_1.Object
oG2antt.BeginUpdate()
oG2antt.SingleSel = false
oG2antt.DefaultItemHeight = 20
oG2antt.ShowFocusRect = true
var_Appearance = oG2antt.VisualAppearance
var_Appearance.RenderType = -1
var_Appearance.Add(2,"gBFLBCJwBAEHhEJAAEhABPEGACAADACAxRDgMQBQKAAzAJBIYhkGYYYCgMZRUDGCYXABCEYRXBKUQSDqEYyjGLIXAWCYSAAMIwDKAUEwpFAZBhgeCRUgyJI3RgMUIzVAcRRFEiUJQlIZZCjOAw0SIMU7xZRcNxsACnaZnCR4NiuRYiUhOcqzRIQIQ4CiEahqOgJbDUJYwWZKAyjBY8XTZFCSJCpeJ6egOc5jRxQUp1WAEXx3GSsJKvCZ5cADBY+VLQNS0JBtMSTKSLaiuWoIJqCPaDRheWKQJh1NSnLqEcjyYANDxDCZlWzAYxWTZ2Uz7N7PbB0HY4DyPGKZYrfESVRbQcZNS6nNigPI9XhfGq6VjRe63ZaOaYpWrnOJqTRWjOKYujWdZ2BGO5lkuBAAkmcQkDmDBEAwEQJCgGhMGcQ4pkiSxGAAOYmkQIhvkYNg2gSCgyj+LI4GIMIwF2XQoAYAoAmASAWAaAZgggJgKFiT54DYDoDmECBGBKBJgGgTgWgWYRoFYGIGmGOBqByB5hCgegggiYJYgoJIICIaIeByChiigYgsgsYYYBYMIKCMKJOCuDRjGiOgLg6Y5InYPoPmQCAkmsXAQDQBCAg=")
var_Appearance.Add(3,"CP:2 -3 0 3 0")
oG2antt.Background(19,50397441 /*0x3010101*/)
oG2antt.LinesAtRoot = -1
oG2antt.Chart.PaneWidth(true,1)
var_Column = oG2antt.Columns.Add("P1")
var_Column.Def(0,true)
var_Column.PartialCheck = true
var_Items = oG2antt.Items
h = var_Items.AddItem("Root")
var_Items.InsertItem(h,,"Child 1")
var_Items.InsertItem(h,,"Child 2")
var_Items.ExpandItem(h,true)
oG2antt.EndUpdate()
|
|
1960
|
The frame around the focusing item is not very clear. Can I show it larger or more cleared (sample 1)
OleObject oG2antt,var_Appearance,var_Column,var_Items
any h
oG2antt = ole_1.Object
oG2antt.BeginUpdate()
oG2antt.SingleSel = false
oG2antt.ShowFocusRect = true
var_Appearance = oG2antt.VisualAppearance
var_Appearance.Add(1,"gBFLBCJwBAEHhEJAAEhABHoDg6AADACAxRDgMQBQKAAzAJBIYhkGYYYCgMZRUDGCYXABCEYRXBIZQ7BKNIxjSJwFiCCQwSDKEjyCKcGRHF6MI6gOYpCgOIYjRJNIASVAceAAGaUZrjSgobjmOYhAJCLqhYIgASXJqLaBlOCaAieSc+QhjQJIJoeCZXU5TFg1BTsOhqEqcRiseaRVDCaIJWzbdYWLDdNQHHKYLjnWorbpSJZ5XjNEySDQkMS9PrEJ7vST8FBCdAABLJUB2BR9RwxRafKpnWwJDpmCaOQLXEB5DK1PyVMTKYrtGy7GrIAJxWxbV4UHh+QABOzIMAvHKJMwvHYcUZne5XVLeF41HbONogPaJZyIAK2cLROq6Xo7GEcJZEcLASB4DwvgWUZlE6AQQhKAYkkYdA6hyDIwHgSoqFwQgmnsYxjGgSIiBOTpSEiAwRgOJI7j4JAHA6U5wm0MpPlOBIjD8TZiGYCICiCGAuA6AxhAgMgSgOYQ4DYBg/g6cw1n+ABOmMMJ9DmCwjnScw4RsVJngkYh4hoKIKmKKI2CmC5ikiQgqgiT5jhyMw8g4QwIn0OIKEiCJhD8DwTGyfA7k0WQOEWEQkGkJhIhKZB5DYSoTiSCQEn4PQOCOXJcCeIJjliaIQk0aRyF4O5llmAhfhgZhJg4ZoYiaAxYn4PZOhOZJaCUZYTiYQw1mcOZUm+HQnHmWh4h6Z4pnYeYfk0eYsmqG4nAgNJ2DqD5DkCWoiGiOgqgyI5omoRoNiSaQKFKEojCaM4ugSFhOjkAJcieKgDkaH4oioGoOiaKRqgqEoqDddwyhuAxPgOMJ8DyDZqk6NYtCsapmjiLprHqdo6i+K5K1oPhOlqPgKD4DpjnII4yiOewuk6MxtAsMpSjObQ7EaT4wk6ewYn0PgPAiCJkjeLgDk6X44i4G4OmaORuguEpqDkLAzkaWg+E8GIUmaPIvEOVpzj2Lxbl6eo+G+S5in4OYPmOaJyjuTwjnYWpBg6DAjAqQZwkwJw" &
+"NkKcJsEcEJCDBEpaD6Dw8BiapGjGSgfB2RpxmyBwgkicZ8haBw/g+M5TBcPQPlOXJskscp8jsMJMnMLJXDGTZzEyYw2kwMoDlcFw9i2M4/EGUJPg0CxFlENBtCcSJSnQfQ0m+SgPHsaJ7lALZLG6XZVHWDRfFqVY1k0ZxdladYTnifJUGaeAWAeMnSGcGWgBObJ3lWbwdjKW5cHcTZPHaLkN4GxXDlFqFsA4uRbBOGAFAEIzAsDEFOBkfYqR4D6AOBEYo8QuBvAmMceInBDgcD0JwOIqQyJ1DMAwG4IANDnHSMoK4QhOgMBGNEIQvQWAdGenETIswGiddsAAQAgCAgA==")
var_Appearance.Add(2,"gBFLBCJwBAEHhEJAAEhABeEGACAADACAxRDgMQBQKAAzAJBIYhkGYYYCgMZRUDGCYXABCEYRXBIZQ7BKNIxjSJwFgmEgADDFIBQSLAYROGSDJBGODJDjWGIeQLOEhQHIMRxPE6UYLhWYpBDKPYcUbGc7yBBMVwGf59XzACoKSheQIVSDQkw6Fo6NYhAxHALyNRkBy8f60KjtGpodDUJYvW5JYyjBZ8EznOqbJBkeJ7BgOe5NQjaD72VgdWQJFSWJajWYYJDOJY2ZAAE5TVINEwxJbDaylChIdxaF6WAzZEBhBYoATPNLBMrhWqKDw2XaQWBCOgwHYeR5LU7BdRwbIrRq2eAAXbcVyXfDddZlBK+QA0SK9lRVTKvJZmKgBWw1COSxmAAGw4kcNx1iKFBiCAfQsG8lJemucg7nsXpUHOOxrm+DI3jOH4XAOBx2nscw0j2HhPG4L5uGEVIECQCBCEUAYkGMHQHFGSBlGaAxkEgQgTGCVBsDYQhCgQJZrHKUggGEShkFGNgIlsNpPnMHJHD+TADAIJIJiIWIeCqChikiIgmgiD5zHyXxgiACJKCuC4jHiZgtg6I4IlkCQwkwOIonMPJjEkFhGhGZBpA4KoMBCGJuEiE5lAkGg7hMY4JEYVoUCUNAOE6FZl0KWQACWOR2GKF5mBmChchkJRZhoXYaCKKYqGuDglEmNhuhWZpIiYc4dCcCRqGmHZlgm2YxAwSQKESHwkFkKgpiAIAIH4PIimOOg2DiChoiQJRRD+TZDHCfwyAyCgyg+JpiioYJ/DgDgIlECQ6lwRAEICA=")
var_Appearance.Add(3,"CP:2 -2 0 2 0")
oG2antt.SelBackColor = 16777216 /*0x1000000*/
oG2antt.SelForeColor = RGB(0,0,0)
oG2antt.Chart.PaneWidth(true,1)
oG2antt.Background(19,67043328 /*0x3ff0000*/)
oG2antt.LinesAtRoot = -1
var_Column = oG2antt.Columns.Add("P1")
var_Column.Def(0,true)
var_Column.PartialCheck = true
var_Items = oG2antt.Items
h = var_Items.AddItem("Root")
var_Items.InsertItem(h,,"Child 1")
var_Items.InsertItem(h,,"Child 2")
var_Items.ExpandItem(h,true)
oG2antt.EndUpdate()
|
|
1959
|
How can I display the start/end margins of bars, when cursor hovers it like a tooltip
OleObject oG2antt,var_Chart,var_Items
any h
oG2antt = ole_1.Object
oG2antt.BeginUpdate()
oG2antt.Columns.Add("exBarToolTip")
var_Chart = oG2antt.Chart
var_Chart.PaneWidth(false,96)
var_Chart.FirstVisibleDate = 2001-01-01
var_Chart.Bars.Item("Task").Def(6,"<b><%=%9 + '/' + %C0%></b><br><upline><dotline>Start: <%=%1%><br>End: <%=%2%><br>Duration: <%=(%2-%1)%><br>Working: <%=%258%>")
var_Items = oG2antt.Items
var_Items.AddBar(var_Items.AddItem("Bar.Def"),"Task",2001-01-02,2001-01-09,"K1")
var_Items.AddBar(var_Items.AddItem("Bar.Def"),"Task",2001-01-03,2001-01-10,"K1")
h = var_Items.AddItem("Items.ItemBar")
var_Items.AddBar(h,"Unknown",2001-01-04,2001-01-11,"K")
var_Items.ItemBar(h,"K",6,"Start:<%=%1%><br>End:<%=%2%>")
oG2antt.EndUpdate()
|
|
1958
|
Is it possible to define different kinds of summary bars with using the EBN files
OleObject oG2antt,var_Appearance,var_Bar,var_Bar1,var_Chart,var_Items
any hSummaryJ,hSummaryK,hSummaryZ,hTaskJ,hTaskK,hTaskZ
oG2antt = ole_1.Object
oG2antt.BeginUpdate()
var_Appearance = oG2antt.VisualAppearance
var_Appearance.RenderType = -16777216
var_Appearance.Add(1,"gBFLBCJwBAEHhEJAAEhABN0GACAADACAxRDAMgBQKAAzQFAYahuGSGAAGMYxQgmFgAQhFcZQSKUOQTDKMIziYBYJhEMQyDAAUIjOKsIhkGYcZAGQBJCjWGodQLOEgwHIERQjEyUJAGGQIHhyPYbUbGUpQHKkeRtGqgBgoKhKEouNYgAbGYIwTRsdyfDSXBpEWwbDgkNQwWTDNoRDIUQStCysaYjOpnfrUAJ1P7FdQ1NJkXRhGSSK7maapaiCSZ6STCMj1FhVKSNJ7DQKhGpgKh/ApgYpQOK4fLNXyRBK4QAyKA6bgPFZOZbFViaXY1V5bNKrcjhHQwAyHJ4XXRdV4YRAkUT4GqiJKGSYcQhuXZWbRqO6ABhef6DRThc6jKpFHIE4llEcojHqSZNgoIxnlgd5thsLREleL43gsYZ9BkaAYkMAgAm+CxGDWWAtiKCRfjcdRgHoHYnicUwgAIEIREAaQYkcQZUHIGRUDQJBOEYRAhDYCxGgMZAkCgdYQhaXQIAYERwQuahXggdgeG6VZ4H4IhdiIGIOB8YIiGiHZZgqYpGF4KYHiKCI+CAU5jCiTQ2g0YhEFyax4gABAEIC")
var_Appearance.Add(2,"gBFLBCJwBAEHhEJAAEhABU0IQAAYAQGKQYhiAKBQAGaAoDDcMA4QwAAyjAKMEwsACEIrjKCRShyCYZRhGcTAJBMIhiGQYAChEZxVhEMgzDjIAxSJAcQRFESaAABGCQGh+N4/S4NIi0CIsZQjCaiZ7pKA5bgMCo+UrNMixZQVCSOGChYRpCaZWpGGodQRUFbVHAlKypJKCKrEWSrDhuYAAW7XM7yBS1TzVNSuLZtaLqSroAJ1WTWMB0Ra8NzZEKfaZACj4arKejrRDCMAggI=")
oG2antt.Columns.Add("Task")
var_Chart = oG2antt.Chart
var_Chart.PaneWidth(false,128)
var_Chart.FirstVisibleDate = 2001-01-01
var_Bar = var_Chart.Bars.Item("Task")
var_Bar.Def(4,18)
var_Bar.Color = RGB(1,0,0)
var_Bar1 = var_Chart.Bars.Item("Summary")
var_Bar1.Def(4,18)
var_Bar1.Color = 33554432 /*0x2000000*/
var_Items = oG2antt.Items
hSummaryJ = var_Items.AddItem("Summary A")
var_Items.AddBar(hSummaryJ,"Summary",2001-01-02,2001-01-02,"J")
hTaskJ = var_Items.InsertItem(hSummaryJ,,"Task A.1")
var_Items.AddBar(hTaskJ,"Task",2001-01-02,2001-01-05,"J1")
hTaskJ = var_Items.InsertItem(hSummaryJ,,"Task A.2")
var_Items.AddBar(hTaskJ,"Task",2001-01-04,2001-01-08,"J2")
var_Items.DefineSummaryBars(hSummaryJ,"J",-1,"<*>")
hSummaryK = var_Items.AddItem("Summary B")
var_Items.AddBar(hSummaryK,"Summary",2001-01-02,2001-01-02,"K")
hTaskK = var_Items.InsertItem(hSummaryK,,"Task B.1")
var_Items.AddBar(hTaskK,"Task",2001-01-02,2001-01-05,"K1")
hTaskK = var_Items.InsertItem(hSummaryK,,"Task B.2")
var_Items.AddBar(hTaskK,"Task",2001-01-04,2001-01-08,"K2")
var_Items.DefineSummaryBars(hSummaryK,"K",-1,"<*>")
var_Items.ItemBar(0,"<K*>",33,255)
hSummaryZ = var_Items.AddItem("Summary B")
var_Items.AddBar(hSummaryZ,"Summary",2001-01-02,2001-01-02,"Z")
hTaskZ = var_Items.InsertItem(hSummaryZ,,"Task B.1")
var_Items.AddBar(hTaskZ,"Task",2001-01-02,2001-01-05,"Z1")
hTaskZ = var_Items.InsertItem(hSummaryZ,,"Task B.2")
var_Items.AddBar(hTaskZ,"Task",2001-01-04,2001-01-08,"Z2")
var_Items.DefineSummaryBars(hSummaryZ,"Z",-1,"<*>")
var_Items.ItemBar(hSummaryZ,"Z",33,16842496)
var_Items.ItemBar(0,"<Z1>",33,50266112)
var_Items.ItemBar(0,"<Z2>",33,33554176)
var_Items.ExpandItem(0,true)
oG2antt.EndUpdate()
|
|
1957
|
How can I display the week-number in ISO8601 format
OleObject oG2antt,var_Chart
oG2antt = ole_1.Object
oG2antt.BeginUpdate()
var_Chart = oG2antt.Chart
var_Chart.PaneWidth(false,0)
var_Chart.LevelCount = 2
var_Chart.FirstVisibleDate = 2007-12-12
var_Chart.DrawGridLines = -1
var_Chart.UnitScale = 256
var_Chart.Level(0).FormatLabel = "value + `<r><off -4><fgcolor=808080><font ;6>` + year(dvalue)"
var_Chart.Level(1).FormatLabel = "(value = 1 ? `<bgcolor=000000><fgcolor=FFFFFF>` : ``) + value"
var_Chart.WeekNumberAs = 0
var_Chart.FirstWeekDay = 1
oG2antt.EndUpdate()
|
|
1956
|
I have a column right-aligned. How can I display its check box aligned to the right, as it appears to the left of the cell's caption
OleObject oG2antt,var_Column,var_Column1,var_Column2,var_Columns,var_Items
oG2antt = ole_1.Object
oG2antt.BeginUpdate()
oG2antt.ColumnAutoResize = true
oG2antt.Chart.PaneWidth(true,0)
oG2antt.DrawGridLines = 2
var_Columns = oG2antt.Columns
var_Column = var_Columns.Add("Left")
var_Column.AllowSizing = false
var_Column.Width = 96
var_Column.Def(0,true)
var_Column.FormatColumn = "0 pos `A-Z`"
var_Column1 = var_Columns.Add("Center")
var_Column1.HeaderAlignment = 1
var_Column1.Alignment = var_Column1.HeaderAlignment
var_Column1.AllowSizing = false
var_Column1.Width = 96
var_Column1.Def(0,true)
var_Column1.FormatColumn = "0 pos `A-Z`"
var_Column2 = var_Columns.Add("Right")
var_Column2.HeaderAlignment = 2
var_Column2.Alignment = var_Column2.HeaderAlignment
var_Column2.AllowSizing = false
var_Column2.Width = 96
var_Column2.Def(0,true)
var_Column2.FormatColumn = "0 pos `A-Z`"
var_Column2.Def(34,"caption,check,icon,icons,picture")
var_Columns.Add("")
var_Items = oG2antt.Items
var_Items.CellState(var_Items.AddItem("Item 1"),3,1)
var_Items.CellState(var_Items.AddItem("Item 2"),2,1)
var_Items.CellState(var_Items.AddItem("Item 3"),1,1)
oG2antt.EndUpdate()
|
|
1955
|
Can I display the column's multiple-lines caption vertically oriented (method 2)
OleObject oG2antt,var_Column,var_Column1,var_Column2,var_Columns,var_Items
oG2antt = ole_1.Object
oG2antt.BeginUpdate()
oG2antt.HeaderHeight = 48
oG2antt.ColumnAutoResize = true
oG2antt.Chart.PaneWidth(true,0)
var_Columns = oG2antt.Columns
var_Columns.Add("And others ...")
var_Column = var_Columns.Add("")
var_Column.HTMLCaption = "First Column"
var_Column.HeaderVertical = true
var_Column.Width = 36
var_Column.AllowSizing = false
var_Column.Def(0,true)
var_Column.Def(48,8)
var_Column.Position = 0
var_Column1 = var_Columns.Add("")
var_Column1.HTMLCaption = "<c><b>Second Column"
var_Column1.HeaderVertical = true
var_Column1.Width = 36
var_Column1.AllowSizing = false
var_Column1.Def(0,true)
var_Column1.Def(48,8)
var_Column1.Position = 1
var_Column2 = var_Columns.Add("")
var_Column2.HTMLCaption = "<r>Third Column"
var_Column2.HeaderVertical = true
var_Column2.Width = 36
var_Column2.AllowSizing = false
var_Column2.Def(0,true)
var_Column2.Def(48,8)
var_Column2.Position = 2
var_Items = oG2antt.Items
var_Items.CellState(var_Items.AddItem("Item 1"),3,1)
var_Items.CellState(var_Items.AddItem("Item 2"),2,1)
var_Items.CellState(var_Items.AddItem("Item 3"),1,1)
oG2antt.EndUpdate()
|
|
1954
|
Can I display the column's multiple-lines caption vertically oriented (method 1)
OleObject oG2antt,var_Column,var_Column1,var_Column2,var_Columns,var_Items
oG2antt = ole_1.Object
oG2antt.BeginUpdate()
oG2antt.HeaderHeight = 48
oG2antt.HeaderSingleLine = false
oG2antt.ColumnAutoResize = true
oG2antt.Chart.PaneWidth(true,0)
var_Columns = oG2antt.Columns
var_Columns.Add("And others ...")
var_Column = var_Columns.Add("First Column")
var_Column.HeaderVertical = true
var_Column.Width = 36
var_Column.AllowSizing = false
var_Column.Def(0,true)
var_Column.Def(48,8)
var_Column.Position = 0
var_Column1 = var_Columns.Add("Second Column")
var_Column1.HeaderBold = true
var_Column1.HeaderVertical = true
var_Column1.Width = 36
var_Column1.AllowSizing = false
var_Column1.Def(0,true)
var_Column1.Def(48,8)
var_Column1.Position = 1
var_Column2 = var_Columns.Add("Third Column")
var_Column2.HeaderVertical = true
var_Column2.Width = 36
var_Column2.AllowSizing = false
var_Column2.Def(0,true)
var_Column2.Def(48,8)
var_Column2.Position = 2
var_Items = oG2antt.Items
var_Items.CellState(var_Items.AddItem("Item 1"),3,1)
var_Items.CellState(var_Items.AddItem("Item 2"),2,1)
var_Items.CellState(var_Items.AddItem("Item 3"),1,1)
oG2antt.EndUpdate()
|
|
1953
|
Can I display the column's caption vertically oriented (method 2)
OleObject oG2antt,var_Column,var_Column1,var_Column2,var_Columns,var_Items
oG2antt = ole_1.Object
oG2antt.BeginUpdate()
oG2antt.HeaderHeight = 48
oG2antt.ColumnAutoResize = true
oG2antt.Chart.PaneWidth(true,0)
var_Columns = oG2antt.Columns
var_Columns.Add("And others ...")
var_Column = var_Columns.Add("")
var_Column.HTMLCaption = "First"
var_Column.HeaderVertical = true
var_Column.Width = 20
var_Column.AllowSizing = false
var_Column.Def(0,true)
var_Column.Position = 0
var_Column1 = var_Columns.Add("")
var_Column1.HTMLCaption = "<c><b>Second"
var_Column1.HeaderVertical = true
var_Column1.Width = 20
var_Column1.AllowSizing = false
var_Column1.Def(0,true)
var_Column1.Position = 1
var_Column2 = var_Columns.Add("")
var_Column2.HTMLCaption = "<r>Third"
var_Column2.HeaderVertical = true
var_Column2.Width = 20
var_Column2.AllowSizing = false
var_Column2.Def(0,true)
var_Column2.Position = 2
var_Items = oG2antt.Items
var_Items.CellState(var_Items.AddItem("Item 1"),3,1)
var_Items.CellState(var_Items.AddItem("Item 2"),2,1)
var_Items.CellState(var_Items.AddItem("Item 3"),1,1)
oG2antt.EndUpdate()
|
|
1952
|
Can I display the column's caption vertically oriented (method 1)
OleObject oG2antt,var_Column,var_Column1,var_Column2,var_Columns,var_Items
oG2antt = ole_1.Object
oG2antt.BeginUpdate()
oG2antt.HeaderHeight = 48
oG2antt.ColumnAutoResize = true
oG2antt.Chart.PaneWidth(true,0)
var_Columns = oG2antt.Columns
var_Columns.Add("And others ...")
var_Column = var_Columns.Add("First")
var_Column.HeaderVertical = true
var_Column.Width = 20
var_Column.AllowSizing = false
var_Column.Def(0,true)
var_Column.Position = 0
var_Column1 = var_Columns.Add("Second")
var_Column1.HeaderBold = true
var_Column1.HeaderVertical = true
var_Column1.Width = 20
var_Column1.AllowSizing = false
var_Column1.Def(0,true)
var_Column1.Position = 1
var_Column2 = var_Columns.Add("Third")
var_Column2.HeaderVertical = true
var_Column2.Width = 20
var_Column2.AllowSizing = false
var_Column2.Def(0,true)
var_Column2.Position = 2
var_Items = oG2antt.Items
var_Items.CellState(var_Items.AddItem("Item 1"),3,1)
var_Items.CellState(var_Items.AddItem("Item 2"),2,1)
var_Items.CellState(var_Items.AddItem("Item 3"),1,1)
oG2antt.EndUpdate()
|
|
1951
|
How can I resize all task-bars 0-length
OleObject oG2antt,var_Chart,var_Items
oG2antt = ole_1.Object
oG2antt.BeginUpdate()
oG2antt.Columns.Add("Tasks")
var_Chart = oG2antt.Chart
var_Chart.FirstVisibleDate = 2017-08-01
var_Chart.LevelCount = 2
var_Chart.PaneWidth(false,128)
var_Items = oG2antt.Items
var_Items.AddBar(var_Items.AddItem("Task 1"),"Task",2017-08-02,2017-08-06)
var_Items.AddBar(var_Items.AddItem("Task 2"),"Task",2017-08-03,2017-08-03)
var_Items.AddBar(var_Items.AddItem("Task 3"),"Task",2017-08-04,2017-08-13)
var_Items.AddBar(var_Items.AddItem("Task 4"),"Task",2017-08-05,2017-08-05)
var_Items.ItemBarEx("itembar(513) = 0 and itembar(0) = `Task`",33,255)
var_Items.ItemBarEx("itembar(513) = 0 and itembar(0) = `Task`",513,"value + 1")
oG2antt.EndUpdate()
|
|
1950
|
Is it possible to mark items that holds items with 0-length (zero,empty, sample 3)
OleObject oG2antt,var_Chart,var_Column,var_ConditionalFormat,var_Items
oG2antt = ole_1.Object
oG2antt.BeginUpdate()
oG2antt.Columns.Add("Tasks")
var_Column = oG2antt.Columns.Add("Duration")
var_Column.Def(18,513)
var_Column.Visible = false
var_Chart = oG2antt.Chart
var_Chart.FirstVisibleDate = 2017-08-01
var_Chart.LevelCount = 2
var_Chart.PaneWidth(false,128)
var_ConditionalFormat = oG2antt.ConditionalFormats.Add("%1 = 0")
var_ConditionalFormat.Bold = true
var_ConditionalFormat.BackColor = RGB(190,190,190)
var_ConditionalFormat.ChartBackColor = var_ConditionalFormat.BackColor
var_Items = oG2antt.Items
var_Items.AllowCellValueToItemBar = true
var_Items.AddBar(var_Items.AddItem("Task 1"),"Task",2017-08-02,2017-08-06)
var_Items.AddBar(var_Items.AddItem("Task 2"),"Task",2017-08-03,2017-08-03)
var_Items.AddBar(var_Items.AddItem("Task 3"),"Task",2017-08-04,2017-08-13)
var_Items.AddBar(var_Items.AddItem("Task 4"),"Task",2017-08-05,2017-08-05)
oG2antt.EndUpdate()
|
|
1949
|
Is it possible to mark items that holds items with 0-length (zero,empty, sample 2)
OleObject oG2antt,var_Chart,var_Items
oG2antt = ole_1.Object
oG2antt.BeginUpdate()
oG2antt.Columns.Add("Tasks")
var_Chart = oG2antt.Chart
var_Chart.FirstVisibleDate = 2017-08-01
var_Chart.LevelCount = 2
var_Chart.PaneWidth(false,128)
var_Items = oG2antt.Items
var_Items.AddBar(var_Items.AddItem("Task 1"),"Task",2017-08-02,2017-08-06)
var_Items.AddBar(var_Items.AddItem("Task 2"),"Task",2017-08-03,2017-08-03)
var_Items.AddBar(var_Items.AddItem("Task 3"),"Task",2017-08-04,2017-08-13)
var_Items.AddBar(var_Items.AddItem("Task 4"),"Task",2017-08-05,2017-08-05)
var_Items.ItemBarEx("itembar(513) = 0",3,"`zero-length`")
oG2antt.EndUpdate()
|
|
1948
|
Is it possible to mark items that holds items with 0-length (zero,empty, sample 1)
OleObject oG2antt,var_Chart,var_Items
oG2antt = ole_1.Object
oG2antt.BeginUpdate()
oG2antt.Columns.Add("Tasks")
var_Chart = oG2antt.Chart
var_Chart.FirstVisibleDate = 2017-08-01
var_Chart.LevelCount = 2
var_Chart.PaneWidth(false,128)
var_Items = oG2antt.Items
var_Items.AddBar(var_Items.AddItem("Task 1"),"Task",2017-08-02,2017-08-06)
var_Items.AddBar(var_Items.AddItem("Task 2"),"Task",2017-08-03,2017-08-03)
var_Items.AddBar(var_Items.AddItem("Task 3"),"Task",2017-08-04,2017-08-13)
var_Items.AddBar(var_Items.AddItem("Task 4"),"Task",2017-08-05,2017-08-05)
var_Items.ItemBarEx("itembar(513) = 0",53,"`[frame=RGB(255,0,0),framethick,pattern=6,patterncolor=RGB(255,0,0)]`")
var_Items.ItemBarEx("itembar(513) = 0",55,"`-4,-4,4,4`")
oG2antt.EndUpdate()
|
|
1947
|
How can I find how many tasks/bars of 0-length (zero,empty) do I have
OleObject oG2antt,var_Chart,var_Items
oG2antt = ole_1.Object
oG2antt.BeginUpdate()
oG2antt.Columns.Add("Tasks")
var_Chart = oG2antt.Chart
var_Chart.FirstVisibleDate = 2017-08-01
var_Chart.LevelCount = 2
var_Chart.PaneWidth(false,128)
var_Items = oG2antt.Items
var_Items.AddBar(var_Items.AddItem("Task 1"),"Task",2017-08-02,2017-08-06)
var_Items.AddBar(var_Items.AddItem("Task 2"),"Task",2017-08-03,2017-08-03)
var_Items.AddBar(var_Items.AddItem("Task 3"),"Task",2017-08-04,2017-08-13)
var_Items.AddBar(var_Items.AddItem("Task 4"),"Task",2017-08-05,2017-08-05)
MessageBox("Information",string( String(var_Items.ItemBarEx("itembar(513) = 0",256)) ))
oG2antt.EndUpdate()
|
|
1946
|
How can I remove all bars from selected items
OleObject oG2antt,var_Bar,var_Bar1,var_Chart,var_Items
any h
oG2antt = ole_1.Object
oG2antt.BeginUpdate()
oG2antt.SingleSel = false
oG2antt.Columns.Add("Tasks")
var_Chart = oG2antt.Chart
var_Chart.FirstVisibleDate = 2017-08-01
var_Chart.LevelCount = 2
var_Chart.PaneWidth(false,128)
var_Chart.SelBackColor = RGB(240,240,240)
var_Bar = var_Chart.Bars.Item("Task")
var_Bar.OverlaidType = 3
var_Bar.OverlaidGroup = "Task,Task-Diff"
var_Bar.Def(3,"<font ;6><%=%0%>")
var_Bar.Def(4,18)
var_Bar1 = var_Chart.Bars.Copy("Task","Task-Diff")
var_Bar1.Height = 4
var_Bar1.Color = RGB(255,0,0)
var_Bar1.Def(3,"<font ;6><%=%0%>")
var_Bar1.Def(4,16)
var_Items = oG2antt.Items
var_Items.AddBar(var_Items.AddItem("Task 1"),"Task",2017-08-02,2017-08-06)
h = var_Items.AddItem("Task 2")
var_Items.AddBar(h,"Task",2017-08-03,2017-08-09)
var_Items.SelectItem(h,true)
h = var_Items.AddItem("Task 3")
var_Items.AddBar(h,"Task",2017-08-04,2017-08-13,"")
var_Items.AddBar(h,"Task-Diff",2017-08-05,2017-08-14,"P")
var_Items.SelectItem(h,true)
var_Items.AddBar(var_Items.AddItem("Task 4"),"Task",2017-08-05,2017-08-16)
MessageBox("Information",string( "Bars before remove: " ))
MessageBox("Information",string( String(var_Items.ItemBar(0,"<*>",256)) ))
var_Items.ItemBarEx("itemisselected",9,"`toberemove` + value ")
var_Items.RemoveBar(0,"<toberemove*>")
MessageBox("Information",string( "Bars after remove: " ))
MessageBox("Information",string( String(var_Items.ItemBar(0,"<*>",256)) ))
oG2antt.EndUpdate()
|
|
1945
|
How can I remove task bars from selected items
OleObject oG2antt,var_Bar,var_Bar1,var_Chart,var_Items
any h
oG2antt = ole_1.Object
oG2antt.BeginUpdate()
oG2antt.SingleSel = false
oG2antt.Columns.Add("Tasks")
var_Chart = oG2antt.Chart
var_Chart.FirstVisibleDate = 2017-08-01
var_Chart.LevelCount = 2
var_Chart.PaneWidth(false,128)
var_Chart.SelBackColor = RGB(240,240,240)
var_Bar = var_Chart.Bars.Item("Task")
var_Bar.OverlaidType = 3
var_Bar.OverlaidGroup = "Task,Task-Diff"
var_Bar.Def(3,"<font ;6><%=%0%>")
var_Bar.Def(4,18)
var_Bar1 = var_Chart.Bars.Copy("Task","Task-Diff")
var_Bar1.Height = 4
var_Bar1.Color = RGB(255,0,0)
var_Bar1.Def(3,"<font ;6><%=%0%>")
var_Bar1.Def(4,16)
var_Items = oG2antt.Items
var_Items.AddBar(var_Items.AddItem("Task 1"),"Task",2017-08-02,2017-08-06)
h = var_Items.AddItem("Task 2")
var_Items.AddBar(h,"Task",2017-08-03,2017-08-09)
var_Items.SelectItem(h,true)
h = var_Items.AddItem("Task 3")
var_Items.AddBar(h,"Task",2017-08-04,2017-08-13,"")
var_Items.AddBar(h,"Task-Diff",2017-08-05,2017-08-14,"P")
var_Items.SelectItem(h,true)
var_Items.AddBar(var_Items.AddItem("Task 4"),"Task",2017-08-05,2017-08-16)
MessageBox("Information",string( "Bars before remove: " ))
MessageBox("Information",string( String(var_Items.ItemBar(0,"<*>",256)) ))
var_Items.ItemBarEx("itemisselected and itembar(0) = `Task`",9,"`toberemove` + value ")
var_Items.RemoveBar(0,"<toberemove*>")
MessageBox("Information",string( "Bars after remove: " ))
MessageBox("Information",string( String(var_Items.ItemBar(0,"<*>",256)) ))
oG2antt.EndUpdate()
|
|
1944
|
How can I change the pattern for some bars only
OleObject oG2antt,var_Chart,var_Items
any h
oG2antt = ole_1.Object
oG2antt.BeginUpdate()
oG2antt.Columns.Add("Tasks").Def(0,true)
var_Chart = oG2antt.Chart
var_Chart.FirstVisibleDate = 2017-08-01
var_Chart.LevelCount = 2
var_Chart.PaneWidth(false,128)
var_Items = oG2antt.Items
var_Items.AddBar(var_Items.AddItem("Task 1"),"Task",2017-08-02,2017-08-06)
h = var_Items.AddItem("Task 2")
var_Items.AddBar(h,"Task",2017-08-03,2017-08-09)
var_Items.CellState(h,0,1)
h = var_Items.AddItem("Task 3")
var_Items.AddBar(h,"Task",2017-08-04,2017-08-13)
var_Items.CellState(h,0,1)
var_Items.AddBar(var_Items.AddItem("Task 4"),"Task",2017-08-05,2017-08-16)
var_Items.ItemBarEx("cellstate(0)",42,6)
oG2antt.EndUpdate()
|
|
1943
|
How do I apply the same effort to all bars
OleObject oG2antt,var_Bar,var_Chart,var_Items
oG2antt = ole_1.Object
oG2antt.BeginUpdate()
oG2antt.Columns.Add("Tasks")
var_Chart = oG2antt.Chart
var_Chart.FirstVisibleDate = 2017-08-01
var_Chart.LevelCount = 2
var_Chart.PaneWidth(false,128)
var_Chart.HistogramView = 112
var_Chart.HistogramVisible = true
var_Chart.HistogramHeight = 64
var_Bar = var_Chart.Bars.Item("Task")
var_Bar.HistogramPattern = 6
var_Bar.HistogramType = 1
var_Items = oG2antt.Items
var_Items.AddBar(var_Items.AddItem("Task 1"),"Task",2017-08-02,2017-08-06)
var_Items.AddBar(var_Items.AddItem("Task 2"),"Task",2017-08-03,2017-08-09)
var_Items.AddBar(var_Items.AddItem("Task 3"),"Task",2017-08-04,2017-08-13)
var_Items.AddBar(var_Items.AddItem("Task 4"),"Task",2017-08-05,2017-08-16)
var_Items.ItemBarEx(true,21,2)
oG2antt.EndUpdate()
|
|
1942
|
How do I apply the same percent to all bars
OleObject oG2antt,var_Bar,var_Chart,var_Items
oG2antt = ole_1.Object
oG2antt.BeginUpdate()
oG2antt.Columns.Add("Tasks")
var_Chart = oG2antt.Chart
var_Chart.FirstVisibleDate = 2017-08-01
var_Chart.LevelCount = 2
var_Chart.PaneWidth(false,128)
var_Bar = var_Chart.Bars.Add("Task%Progress")
var_Bar.Shortcut = "Task"
var_Bar.Def(14,true)
var_Items = oG2antt.Items
var_Items.AddBar(var_Items.AddItem("Task 1"),"Task",2017-08-02,2017-08-06)
var_Items.AddBar(var_Items.AddItem("Task 2"),"Task",2017-08-03,2017-08-09)
var_Items.AddBar(var_Items.AddItem("Task 3"),"Task",2017-08-04,2017-08-13)
var_Items.AddBar(var_Items.AddItem("Task 4"),"Task",2017-08-05,2017-08-16)
var_Items.ItemBarEx(true,12,0.5)
oG2antt.EndUpdate()
|
|
1941
|
How can I set the same duration for all bars
OleObject oG2antt,var_Chart,var_Items
oG2antt = ole_1.Object
oG2antt.BeginUpdate()
oG2antt.Columns.Add("Tasks")
var_Chart = oG2antt.Chart
var_Chart.FirstVisibleDate = 2017-08-01
var_Chart.LevelCount = 2
var_Chart.PaneWidth(false,128)
var_Items = oG2antt.Items
var_Items.AddBar(var_Items.AddItem("Task 1"),"Task",2017-08-02,2017-08-06)
var_Items.AddBar(var_Items.AddItem("Task 2"),"Task",2017-08-03,2017-08-09)
var_Items.AddBar(var_Items.AddItem("Task 3"),"Task",2017-08-04,2017-08-13)
var_Items.AddBar(var_Items.AddItem("Task 4"),"Task",2017-08-05,2017-08-16)
var_Items.ItemBarEx(true,513,4)
oG2antt.EndUpdate()
|
|
1940
|
How do I move all bars to end at the same date-time
OleObject oG2antt,var_Chart,var_Items
oG2antt = ole_1.Object
oG2antt.BeginUpdate()
oG2antt.Columns.Add("Tasks")
var_Chart = oG2antt.Chart
var_Chart.FirstVisibleDate = 2017-08-01
var_Chart.LevelCount = 2
var_Chart.PaneWidth(false,128)
var_Items = oG2antt.Items
var_Items.AddBar(var_Items.AddItem("Task 1"),"Task",2017-08-02,2017-08-06)
var_Items.AddBar(var_Items.AddItem("Task 2"),"Task",2017-08-03,2017-08-09)
var_Items.AddBar(var_Items.AddItem("Task 3"),"Task",2017-08-04,2017-08-13)
var_Items.AddBar(var_Items.AddItem("Task 4"),"Task",2017-08-05,2017-08-16)
var_Items.ItemBarEx(true,545,"#8/15/2017#")
oG2antt.EndUpdate()
|
|
1939
|
How do I move all bars to start at the same date-time
OleObject oG2antt,var_Chart,var_Items
oG2antt = ole_1.Object
oG2antt.BeginUpdate()
oG2antt.Columns.Add("Tasks")
var_Chart = oG2antt.Chart
var_Chart.FirstVisibleDate = 2017-08-01
var_Chart.LevelCount = 2
var_Chart.PaneWidth(false,128)
var_Items = oG2antt.Items
var_Items.AddBar(var_Items.AddItem("Task 1"),"Task",2017-08-02,2017-08-06)
var_Items.AddBar(var_Items.AddItem("Task 2"),"Task",2017-08-03,2017-08-09)
var_Items.AddBar(var_Items.AddItem("Task 3"),"Task",2017-08-04,2017-08-13)
var_Items.AddBar(var_Items.AddItem("Task 4"),"Task",2017-08-05,2017-08-16)
var_Items.ItemBarEx(true,544,"#8/2/2017#")
oG2antt.EndUpdate()
|
|
1938
|
How do I apply a new color for some bars, while others should be shown with a different color
OleObject oG2antt,var_Bar,var_Bar1,var_Chart,var_Items
any h
oG2antt = ole_1.Object
oG2antt.BeginUpdate()
oG2antt.Columns.Add("Tasks")
var_Chart = oG2antt.Chart
var_Chart.FirstVisibleDate = 2017-08-01
var_Chart.LevelCount = 2
var_Chart.PaneWidth(false,128)
var_Chart.SelBackColor = RGB(240,240,240)
var_Bar = var_Chart.Bars.Item("Task")
var_Bar.OverlaidType = 3
var_Bar.OverlaidGroup = "Task,Task-Diff"
var_Bar.Def(3,"<font ;6><%=%0%>")
var_Bar.Def(4,18)
var_Bar1 = var_Chart.Bars.Copy("Task","Task-Diff")
var_Bar1.Height = 4
var_Bar1.Color = RGB(255,0,0)
var_Bar1.Def(3,"<font ;6><%=%0%>")
var_Bar1.Def(4,16)
var_Items = oG2antt.Items
var_Items.AddBar(var_Items.AddItem("Task 1"),"Task",2017-08-02,2017-08-06)
var_Items.AddBar(var_Items.AddItem("Task 2"),"Task",2017-08-03,2017-08-09)
h = var_Items.AddItem("Task 3")
var_Items.AddBar(h,"Task",2017-08-04,2017-08-13,"")
var_Items.AddBar(h,"Task-Diff",2017-08-05,2017-08-14,"P")
var_Items.AddBar(var_Items.AddItem("Task 4"),"Task",2017-08-05,2017-08-16)
var_Items.ItemBarEx(true,33,"cellcaption(0) like `*2` ? 0x0000FF : 0x00FF00")
oG2antt.EndUpdate()
|
|
1937
|
How do I hide some bars, and show others
OleObject oG2antt,var_Bar,var_Bar1,var_Chart,var_Items
any h
oG2antt = ole_1.Object
oG2antt.BeginUpdate()
oG2antt.SingleSel = false
oG2antt.Columns.Add("Tasks")
var_Chart = oG2antt.Chart
var_Chart.FirstVisibleDate = 2017-08-01
var_Chart.LevelCount = 2
var_Chart.PaneWidth(false,128)
var_Chart.SelBackColor = RGB(240,240,240)
var_Bar = var_Chart.Bars.Item("Task")
var_Bar.OverlaidType = 3
var_Bar.OverlaidGroup = "Task,Task-Diff"
var_Bar.Def(3,"<font ;6><%=%0%>")
var_Bar.Def(4,18)
var_Bar1 = var_Chart.Bars.Copy("Task","Task-Diff")
var_Bar1.Height = 4
var_Bar1.Color = RGB(255,0,0)
var_Bar1.Def(3,"<font ;6><%=%0%>")
var_Bar1.Def(4,16)
var_Items = oG2antt.Items
var_Items.AddBar(var_Items.AddItem("Task 1"),"Task",2017-08-02,2017-08-06)
h = var_Items.AddItem("Task 2")
var_Items.AddBar(h,"Task",2017-08-03,2017-08-09)
var_Items.SelectItem(h,true)
h = var_Items.AddItem("Task 3")
var_Items.AddBar(h,"Task",2017-08-04,2017-08-13,"")
var_Items.AddBar(h,"Task-Diff",2017-08-05,2017-08-14,"P")
var_Items.SelectItem(h,true)
var_Items.AddBar(var_Items.AddItem("Task 4"),"Task",2017-08-05,2017-08-16)
var_Items.ItemBarEx("-1",19,"itembar(0) = `Task` ? 0 : 100")
oG2antt.EndUpdate()
|
|
1936
|
I like how ItemBarEx works, the question is how can I remove the bars based on the same criteria
OleObject oG2antt,var_Chart,var_Items
oG2antt = ole_1.Object
oG2antt.BeginUpdate()
oG2antt.Columns.Add("Tasks")
var_Chart = oG2antt.Chart
var_Chart.FirstVisibleDate = 2017-08-01
var_Chart.LevelCount = 2
var_Chart.PaneWidth(false,128)
var_Items = oG2antt.Items
var_Items.AddBar(var_Items.AddItem("Task 1"),"Task",2017-08-02,2017-08-06)
var_Items.AddBar(var_Items.AddItem("Task 2"),"Task",2017-08-03,2017-08-09)
var_Items.AddBar(var_Items.AddItem("Task 3"),"Task",2017-08-04,2017-08-13)
var_Items.AddBar(var_Items.AddItem("Task 4"),"Task",2017-08-05,2017-08-16)
MessageBox("Information",string( "Bars before remove: " ))
MessageBox("Information",string( String(var_Items.ItemBar(0,"<*>",256)) ))
var_Items.ItemBarEx("cellcaption(0) like `*2 *3`",9,"`toberemove` + value ")
var_Items.RemoveBar(0,"<toberemove*>")
MessageBox("Information",string( "Bars after remove: " ))
MessageBox("Information",string( String(var_Items.ItemBar(0,"<*>",256)) ))
oG2antt.EndUpdate()
|
|
1935
|
Is it possible to automatically color the bar being checked
/*begin event CellStateChanged(long Item,long ColIndex) - Fired after cell's state has been changed.*/
/*
oG2antt = ole_1.Object
*/
/*end event CellStateChanged*/
OleObject oG2antt,var_Chart,var_Column,var_ConditionalFormat,var_Items
any h
oG2antt = ole_1.Object
oG2antt.BeginUpdate()
oG2antt.SelBackMode = 1
var_Chart = oG2antt.Chart
var_Chart.LevelCount = 2
var_Chart.PaneWidth(false,256)
var_Chart.FirstVisibleDate = 2017-01-01
var_ConditionalFormat = oG2antt.ConditionalFormats.Add("%CS0","check")
var_ConditionalFormat.Bold = true
var_ConditionalFormat.ApplyToBars = "Task"
var_ConditionalFormat.BarColor = RGB(0,0,1)
var_Column = oG2antt.Columns.Add("Items")
var_Column.Def(0,true)
var_Column.Width = 256
oG2antt.Columns.Add(oG2antt.ConditionalFormats.Item("check").Expression).FormatColumn = oG2antt.ConditionalFormats.Item("check").Expression
var_Items = oG2antt.Items
var_Items.AddBar(var_Items.AddItem("Item 1"),"Task",2017-01-02,2017-01-12)
h = var_Items.AddItem("Item 2")
var_Items.AddBar(h,"Task",2017-01-03,2017-01-13)
var_Items.CellState(h,0,1)
h = var_Items.AddItem("Item 3")
var_Items.AddBar(h,"Task",2017-01-04,2017-01-14)
var_Items.CellState(h,0,1)
oG2antt.EndUpdate()
|
|
1934
|
How do I automatically bold items being checked
/*begin event CellStateChanged(long Item,long ColIndex) - Fired after cell's state has been changed.*/
/*
oG2antt = ole_1.Object
*/
/*end event CellStateChanged*/
OleObject oG2antt,var_ConditionalFormat,var_Items
oG2antt = ole_1.Object
oG2antt.BeginUpdate()
oG2antt.SelBackMode = 1
oG2antt.Chart.PaneWidth(true,0)
var_ConditionalFormat = oG2antt.ConditionalFormats.Add("%CS0","check")
var_ConditionalFormat.Bold = true
oG2antt.Columns.Add("Items").Def(0,true)
oG2antt.Columns.Add(oG2antt.ConditionalFormats.Item("check").Expression).FormatColumn = oG2antt.ConditionalFormats.Item("check").Expression
var_Items = oG2antt.Items
var_Items.AddItem("Item 1")
var_Items.CellState(var_Items.AddItem("Item 2"),0,1)
var_Items.AddItem("Item 3")
oG2antt.EndUpdate()
|
|
1933
|
Can I display the radio-button with a solid color
OleObject oG2antt,var_Items
oG2antt = ole_1.Object
oG2antt.BeginUpdate()
oG2antt.Chart.PaneWidth(true,0)
oG2antt.RadioImage(false,32699122)
oG2antt.RadioImage(true,16777216)
oG2antt.Columns.Add("Check").Def(1,true)
var_Items = oG2antt.Items
var_Items.AddItem("Radio 1")
var_Items.CellState(var_Items.AddItem("Radio 2"),0,1)
var_Items.AddItem("Radio 1")
oG2antt.EndUpdate()
|
|
1932
|
Can I display the check-box with a solid color
OleObject oG2antt,var_Items
oG2antt = ole_1.Object
oG2antt.BeginUpdate()
oG2antt.Chart.PaneWidth(true,0)
oG2antt.CheckImage(0,32699122)
oG2antt.CheckImage(1,16777216)
oG2antt.Columns.Add("Check").Def(0,true)
var_Items = oG2antt.Items
var_Items.AddItem("Check 1")
var_Items.CellState(var_Items.AddItem("Check 2"),0,1)
var_Items.AddItem("Check 3")
oG2antt.EndUpdate()
|
|
1931
|
How can I use the CellState with ConditionalFormat/ComputedField/FormatColumn
/*begin event CellStateChanged(long Item,long ColIndex) - Fired after cell's state has been changed.*/
/*
oG2antt = ole_1.Object
*/
/*end event CellStateChanged*/
OleObject oG2antt,var_Column,var_Column1,var_Items
any h
oG2antt = ole_1.Object
oG2antt.BeginUpdate()
oG2antt.LinesAtRoot = 4
oG2antt.SelBackMode = 1
oG2antt.Chart.PaneWidth(true,0)
var_Column = oG2antt.Columns.Add("Items")
var_Column.Def(0,true)
var_Column.PartialCheck = true
var_Column1 = oG2antt.Columns.Add("Format")
var_Column1.FormatColumn = "%CS0"
var_Column1.Caption = var_Column1.FormatColumn
var_Column1.Def(5,8421504)
var_Column1.Def(8,var_Column1.Def(5))
var_Items = oG2antt.Items
h = var_Items.AddItem("Root")
var_Items.InsertItem(h,,"Item 1")
var_Items.CellState(var_Items.InsertItem(h,,"Item 2"),0,1)
var_Items.CellState(var_Items.InsertItem(h,,"Item 3"),0,1)
var_Items.ExpandItem(h,true)
oG2antt.EndUpdate()
|
|
1930
|
How can I use the CellData with ConditionalFormat/ComputedField/FormatColumn
OleObject oG2antt,var_Column,var_Items
oG2antt = ole_1.Object
oG2antt.BeginUpdate()
oG2antt.Chart.PaneWidth(true,0)
oG2antt.Columns.Add("Items")
var_Column = oG2antt.Columns.Add("Format")
var_Column.FormatColumn = "%CD0"
var_Column.Caption = var_Column.FormatColumn
var_Column.Def(5,8421504)
var_Column.Def(8,var_Column.Def(5))
var_Items = oG2antt.Items
var_Items.CellData(var_Items.AddItem("Item 1"),0,1234)
var_Items.CellData(var_Items.AddItem("Item 2"),0,"this is just an user data")
var_Items.CellData(var_Items.AddItem("Item 3"),0,2001-01-01)
oG2antt.EndUpdate()
|
|
1929
|
How can I use the CellValue/CellCaption with ConditionalFormat/ComputedField/FormatColumn
OleObject oG2antt,var_Column,var_Column1,var_Column2,var_Editor,var_Items
oG2antt = ole_1.Object
oG2antt.BeginUpdate()
oG2antt.Chart.PaneWidth(true,0)
var_Column = oG2antt.Columns.Add("Items")
var_Editor = var_Column.Editor
var_Editor.EditType = 3
var_Editor.AddItem(1,"Item 1")
var_Editor.AddItem(2,"Item 2")
var_Editor.AddItem(3,"Item 3")
var_Column1 = oG2antt.Columns.Add("Format")
var_Column1.FormatColumn = "%0"
var_Column1.Caption = var_Column1.FormatColumn
var_Column1.Def(5,8421504)
var_Column1.Def(8,var_Column1.Def(5))
var_Column1.AllowSizing = false
var_Column2 = oG2antt.Columns.Add("Format")
var_Column2.FormatColumn = "%C0"
var_Column2.Caption = var_Column2.FormatColumn
var_Column2.Def(5,8421504)
var_Column2.Def(8,var_Column2.Def(5))
var_Column2.AllowSizing = false
var_Items = oG2antt.Items
var_Items.AddItem(1)
var_Items.CellValue(var_Items.AddItem(0),0,2)
var_Items.AddItem(2)
oG2antt.EndUpdate()
|
|
1928
|
How can I use the ShowNonworkingHours property (hide the non-working hours)
OleObject oG2antt,var_Chart
oG2antt = ole_1.Object
oG2antt.BeginUpdate()
var_Chart = oG2antt.Chart
var_Chart.PaneWidth(false,0)
var_Chart.LevelCount = 2
var_Chart.UnitScale = 65536
var_Chart.NonworkingHours = 16253183
var_Chart.ShowNonworkingHours = false
var_Chart.ShowNonworkingUnits = false
oG2antt.EndUpdate()
|
|
1927
|
How can I use the ShowNonworkingDates property (hide the non-working days)
OleObject oG2antt,var_Chart
oG2antt = ole_1.Object
oG2antt.BeginUpdate()
var_Chart = oG2antt.Chart
var_Chart.PaneWidth(false,0)
var_Chart.LevelCount = 2
var_Chart.UnitScale = 4096
var_Chart.ShowNonworkingDates = false
var_Chart.ShowNonworkingUnits = false
oG2antt.EndUpdate()
|
|
1926
|
How can I show/hide bars once the user checks or un-checks a column
/*begin event CellStateChanged(long Item,long ColIndex) - Fired after cell's state has been changed.*/
/*
OleObject var_Items
oG2antt = ole_1.Object
var_Items = oG2antt.Items
var_Items.ItemBarEx(true,19,"cellstate(0) = 1 ? 0 : 100")
*/
/*end event CellStateChanged*/
OleObject oG2antt,var_Bar,var_Chart,var_Column,var_Items
any h,hChild
oG2antt = ole_1.Object
oG2antt.BeginUpdate()
oG2antt.LinesAtRoot = -1
var_Column = oG2antt.Columns.Add("Tasks")
var_Column.Def(0,true)
var_Column.PartialCheck = true
oG2antt.HeaderVisible = 1
oG2antt.SelBackColor = RGB(240,240,240)
oG2antt.SelForeColor = RGB(0,0,0)
var_Chart = oG2antt.Chart
var_Chart.FirstVisibleDate = 2017-08-01
var_Chart.LevelCount = 2
var_Chart.PaneWidth(false,128)
var_Bar = var_Chart.Bars.Item("Summary")
var_Bar.StartShape = 0
var_Bar.EndShape = 0
var_Bar.Shape = 20
var_Chart.SelBackColor = oG2antt.SelBackColor
var_Chart.SelBarColor = RGB(128,128,128)
var_Items = oG2antt.Items
h = var_Items.AddItem("Project")
hChild = var_Items.InsertItem(h,,"Task 1")
var_Items.AddBar(hChild,"Task",2017-08-02,2017-08-08)
var_Items.SelectItem(hChild,true)
hChild = var_Items.InsertItem(h,,"Task 2")
var_Items.AddBar(hChild,"Task",2017-08-03,2017-08-10)
var_Items.CellState(hChild,0,1)
hChild = var_Items.InsertItem(h,,"Task 3")
var_Items.AddBar(hChild,"Task",2017-08-04,2017-08-12)
var_Items.AddBar(h,"Summary",2017-08-01,2017-08-01,"sum")
var_Items.DefineSummaryBars(h,"sum",-3,"")
var_Items.ExpandItem(h,true)
var_Items.ItemBarEx(true,19,"cellstate(0) = 1 ? 0 : 100")
oG2antt.EndUpdate()
|
|
1925
|
How can I change the color for all Task bars
OleObject oG2antt,var_Bar,var_Chart,var_Column,var_Items
any h,hChild
oG2antt = ole_1.Object
oG2antt.BeginUpdate()
oG2antt.LinesAtRoot = -1
var_Column = oG2antt.Columns.Add("Tasks")
var_Column.Def(0,true)
var_Column.PartialCheck = true
oG2antt.HeaderVisible = 1
oG2antt.SelBackColor = RGB(240,240,240)
oG2antt.SelForeColor = RGB(0,0,0)
var_Chart = oG2antt.Chart
var_Chart.FirstVisibleDate = 2017-08-01
var_Chart.LevelCount = 2
var_Chart.PaneWidth(false,128)
var_Bar = var_Chart.Bars.Item("Summary")
var_Bar.StartShape = 0
var_Bar.EndShape = 0
var_Bar.Shape = 20
var_Chart.SelBackColor = oG2antt.SelBackColor
var_Chart.SelBarColor = RGB(128,128,128)
var_Items = oG2antt.Items
h = var_Items.AddItem("Project")
hChild = var_Items.InsertItem(h,,"Task 1")
var_Items.AddBar(hChild,"Task",2017-08-02,2017-08-08)
var_Items.SelectItem(hChild,true)
hChild = var_Items.InsertItem(h,,"Task 2")
var_Items.AddBar(hChild,"Task",2017-08-03,2017-08-10)
var_Items.CellState(hChild,0,1)
hChild = var_Items.InsertItem(h,,"Task 3")
var_Items.AddBar(hChild,"Task",2017-08-04,2017-08-12)
var_Items.CellState(hChild,0,1)
var_Items.AddBar(h,"Summary",2017-08-01,2017-08-01,"sum")
var_Items.DefineSummaryBars(h,"sum",-3,"")
var_Items.ExpandItem(h,true)
var_Items.ItemBarEx("itembar(0) = `Task`",33,65280)
oG2antt.EndUpdate()
|
|
1924
|
Is it possible to automatically select bars only when user selects a new item
/*begin event SelectionChanged() - Fired after a new item has been selected.*/
/*
OleObject var_Items
oG2antt = ole_1.Object
var_Items = oG2antt.Items
var_Items.ItemBarEx(true,257,"itemisselected")
*/
/*end event SelectionChanged*/
OleObject oG2antt,var_Bar,var_Chart,var_Items
any h,hChild
oG2antt = ole_1.Object
oG2antt.BeginUpdate()
oG2antt.LinesAtRoot = -1
oG2antt.Columns.Add("Tasks")
oG2antt.HeaderVisible = 1
oG2antt.SelBackColor = RGB(240,240,240)
oG2antt.SelForeColor = RGB(0,0,0)
var_Chart = oG2antt.Chart
var_Chart.AllowSelectObjects = 0
var_Chart.FirstVisibleDate = 2017-08-01
var_Chart.LevelCount = 2
var_Chart.PaneWidth(false,128)
var_Bar = var_Chart.Bars.Item("Summary")
var_Bar.StartShape = 0
var_Bar.EndShape = 0
var_Bar.Shape = 20
var_Chart.SelBackColor = oG2antt.SelBackColor
var_Chart.SelBarColor = RGB(128,128,128)
var_Items = oG2antt.Items
h = var_Items.AddItem("Project")
hChild = var_Items.InsertItem(h,,"Task 1")
var_Items.AddBar(hChild,"Task",2017-08-02,2017-08-08)
var_Items.SelectItem(hChild,true)
hChild = var_Items.InsertItem(h,,"Task 2")
var_Items.AddBar(hChild,"Task",2017-08-03,2017-08-10)
var_Items.CellState(hChild,0,1)
hChild = var_Items.InsertItem(h,,"Task 3")
var_Items.AddBar(hChild,"Task",2017-08-04,2017-08-12)
var_Items.CellState(hChild,0,1)
var_Items.AddBar(h,"Summary",2017-08-01,2017-08-01,"sum")
var_Items.DefineSummaryBars(h,"sum",-3,"")
var_Items.ExpandItem(h,true)
oG2antt.EndUpdate()
|
|
1923
|
Is it possible to automatically select bars only when the user clicks the column's checkbox
/*begin event CellStateChanged(long Item,long ColIndex) - Fired after cell's state has been changed.*/
/*
OleObject var_Items
oG2antt = ole_1.Object
var_Items = oG2antt.Items
var_Items.ItemBarEx(true,257,"cellstate(0) = 1")
*/
/*end event CellStateChanged*/
OleObject oG2antt,var_Bar,var_Chart,var_Column,var_Items
any h,hChild
oG2antt = ole_1.Object
oG2antt.BeginUpdate()
oG2antt.LinesAtRoot = -1
var_Column = oG2antt.Columns.Add("Tasks")
var_Column.Def(0,true)
var_Column.PartialCheck = true
oG2antt.HeaderVisible = 1
oG2antt.SelBackColor = RGB(240,240,240)
oG2antt.SelForeColor = RGB(0,0,0)
var_Chart = oG2antt.Chart
var_Chart.AllowSelectObjects = 0
var_Chart.FirstVisibleDate = 2017-08-01
var_Chart.LevelCount = 2
var_Chart.PaneWidth(false,128)
var_Bar = var_Chart.Bars.Item("Summary")
var_Bar.StartShape = 0
var_Bar.EndShape = 0
var_Bar.Shape = 20
var_Chart.SelBackColor = oG2antt.SelBackColor
var_Chart.SelBarColor = RGB(128,128,128)
var_Items = oG2antt.Items
h = var_Items.AddItem("Project")
hChild = var_Items.InsertItem(h,,"Task 1")
var_Items.AddBar(hChild,"Task",2017-08-02,2017-08-08)
var_Items.SelectItem(hChild,true)
hChild = var_Items.InsertItem(h,,"Task 2")
var_Items.AddBar(hChild,"Task",2017-08-03,2017-08-10)
var_Items.CellState(hChild,0,1)
hChild = var_Items.InsertItem(h,,"Task 3")
var_Items.AddBar(hChild,"Task",2017-08-04,2017-08-12)
var_Items.CellState(hChild,0,1)
var_Items.AddBar(h,"Summary",2017-08-01,2017-08-01,"sum")
var_Items.DefineSummaryBars(h,"sum",-3,"")
var_Items.ExpandItem(h,true)
oG2antt.EndUpdate()
|
|
1922
|
How do I select all bars on leaf items
OleObject oG2antt,var_Bar,var_Chart,var_Column,var_Items
any h,hChild
oG2antt = ole_1.Object
oG2antt.BeginUpdate()
oG2antt.LinesAtRoot = -1
var_Column = oG2antt.Columns.Add("Tasks")
var_Column.Def(0,true)
var_Column.PartialCheck = true
oG2antt.HeaderVisible = 1
oG2antt.SelBackColor = RGB(240,240,240)
oG2antt.SelForeColor = RGB(0,0,0)
var_Chart = oG2antt.Chart
var_Chart.FirstVisibleDate = 2017-08-01
var_Chart.LevelCount = 2
var_Chart.PaneWidth(false,128)
var_Bar = var_Chart.Bars.Item("Summary")
var_Bar.StartShape = 0
var_Bar.EndShape = 0
var_Bar.Shape = 20
var_Chart.SelBackColor = oG2antt.SelBackColor
var_Chart.SelBarColor = RGB(128,128,128)
var_Items = oG2antt.Items
h = var_Items.AddItem("Project")
hChild = var_Items.InsertItem(h,,"Task 1")
var_Items.AddBar(hChild,"Task",2017-08-02,2017-08-08)
var_Items.SelectItem(hChild,true)
hChild = var_Items.InsertItem(h,,"Task 2")
var_Items.AddBar(hChild,"Task",2017-08-03,2017-08-10)
var_Items.CellState(hChild,0,1)
hChild = var_Items.InsertItem(h,,"Task 3")
var_Items.AddBar(hChild,"Task",2017-08-04,2017-08-12)
var_Items.CellState(hChild,0,1)
var_Items.AddBar(h,"Summary",2017-08-01,2017-08-01,"sum")
var_Items.DefineSummaryBars(h,"sum",-3,"")
var_Items.ExpandItem(h,true)
var_Items.ItemBarEx("itemlevel = 1",257,true)
oG2antt.EndUpdate()
|
|
1921
|
How can I change the caption for all checked Task bars
OleObject oG2antt,var_Bar,var_Chart,var_Column,var_Items
any h,hChild
oG2antt = ole_1.Object
oG2antt.BeginUpdate()
oG2antt.LinesAtRoot = -1
var_Column = oG2antt.Columns.Add("Tasks")
var_Column.Def(0,true)
var_Column.PartialCheck = true
oG2antt.HeaderVisible = 1
oG2antt.SelBackColor = RGB(240,240,240)
oG2antt.SelForeColor = RGB(0,0,0)
var_Chart = oG2antt.Chart
var_Chart.FirstVisibleDate = 2017-08-01
var_Chart.LevelCount = 2
var_Chart.PaneWidth(false,128)
var_Bar = var_Chart.Bars.Item("Summary")
var_Bar.StartShape = 0
var_Bar.EndShape = 0
var_Bar.Shape = 20
var_Chart.SelBackColor = oG2antt.SelBackColor
var_Chart.SelBarColor = RGB(128,128,128)
var_Items = oG2antt.Items
h = var_Items.AddItem("Project")
hChild = var_Items.InsertItem(h,,"Task 1")
var_Items.AddBar(hChild,"Task",2017-08-02,2017-08-08)
var_Items.SelectItem(hChild,true)
hChild = var_Items.InsertItem(h,,"Task 2")
var_Items.AddBar(hChild,"Task",2017-08-03,2017-08-10)
var_Items.CellState(hChild,0,1)
hChild = var_Items.InsertItem(h,,"Task 3")
var_Items.AddBar(hChild,"Task",2017-08-04,2017-08-12)
var_Items.CellState(hChild,0,1)
var_Items.AddBar(h,"Summary",2017-08-01,2017-08-01,"sum")
var_Items.DefineSummaryBars(h,"sum",-3,"")
var_Items.ExpandItem(h,true)
var_Items.ItemBarEx("(cellstate(0) = 1) and (itembar(0) = `Task`)",3,"`new caption`")
oG2antt.EndUpdate()
|
|
1920
|
How can I change the caption for all Task bars
OleObject oG2antt,var_Bar,var_Chart,var_Column,var_Items
any h,hChild
oG2antt = ole_1.Object
oG2antt.BeginUpdate()
oG2antt.LinesAtRoot = -1
var_Column = oG2antt.Columns.Add("Tasks")
var_Column.Def(0,true)
var_Column.PartialCheck = true
oG2antt.HeaderVisible = 1
oG2antt.SelBackColor = RGB(240,240,240)
oG2antt.SelForeColor = RGB(0,0,0)
var_Chart = oG2antt.Chart
var_Chart.FirstVisibleDate = 2017-08-01
var_Chart.LevelCount = 2
var_Chart.PaneWidth(false,128)
var_Bar = var_Chart.Bars.Item("Summary")
var_Bar.StartShape = 0
var_Bar.EndShape = 0
var_Bar.Shape = 20
var_Chart.SelBackColor = oG2antt.SelBackColor
var_Chart.SelBarColor = RGB(128,128,128)
var_Items = oG2antt.Items
h = var_Items.AddItem("Project")
hChild = var_Items.InsertItem(h,,"Task 1")
var_Items.AddBar(hChild,"Task",2017-08-02,2017-08-08)
var_Items.SelectItem(hChild,true)
hChild = var_Items.InsertItem(h,,"Task 2")
var_Items.AddBar(hChild,"Task",2017-08-03,2017-08-10)
var_Items.CellState(hChild,0,1)
hChild = var_Items.InsertItem(h,,"Task 3")
var_Items.AddBar(hChild,"Task",2017-08-04,2017-08-12)
var_Items.CellState(hChild,0,1)
var_Items.AddBar(h,"Summary",2017-08-01,2017-08-01,"sum")
var_Items.DefineSummaryBars(h,"sum",-3,"")
var_Items.ExpandItem(h,true)
var_Items.ItemBarEx("(itembar(0) = `Task`)",3,"`new caption`")
oG2antt.EndUpdate()
|
|
1919
|
How can I change the caption for all bars
OleObject oG2antt,var_Bar,var_Chart,var_Column,var_Items
any h,hChild
oG2antt = ole_1.Object
oG2antt.BeginUpdate()
oG2antt.LinesAtRoot = -1
var_Column = oG2antt.Columns.Add("Tasks")
var_Column.Def(0,true)
var_Column.PartialCheck = true
oG2antt.HeaderVisible = 1
oG2antt.SelBackColor = RGB(240,240,240)
oG2antt.SelForeColor = RGB(0,0,0)
var_Chart = oG2antt.Chart
var_Chart.FirstVisibleDate = 2017-08-01
var_Chart.LevelCount = 2
var_Chart.PaneWidth(false,128)
var_Bar = var_Chart.Bars.Item("Summary")
var_Bar.StartShape = 0
var_Bar.EndShape = 0
var_Bar.Shape = 20
var_Chart.SelBackColor = oG2antt.SelBackColor
var_Chart.SelBarColor = RGB(128,128,128)
var_Items = oG2antt.Items
h = var_Items.AddItem("Project")
hChild = var_Items.InsertItem(h,,"Task 1")
var_Items.AddBar(hChild,"Task",2017-08-02,2017-08-08)
var_Items.SelectItem(hChild,true)
hChild = var_Items.InsertItem(h,,"Task 2")
var_Items.AddBar(hChild,"Task",2017-08-03,2017-08-10)
var_Items.CellState(hChild,0,1)
hChild = var_Items.InsertItem(h,,"Task 3")
var_Items.AddBar(hChild,"Task",2017-08-04,2017-08-12)
var_Items.CellState(hChild,0,1)
var_Items.AddBar(h,"Summary",2017-08-01,2017-08-01,"sum")
var_Items.DefineSummaryBars(h,"sum",-3,"")
var_Items.ExpandItem(h,true)
var_Items.ItemBarEx(true,3,"`new caption`")
oG2antt.EndUpdate()
|
|
1918
|
How can I move all Task bars to end at the same date time
OleObject oG2antt,var_Bar,var_Chart,var_Column,var_Items
any h,hChild
oG2antt = ole_1.Object
oG2antt.BeginUpdate()
oG2antt.LinesAtRoot = -1
var_Column = oG2antt.Columns.Add("Tasks")
var_Column.Def(0,true)
var_Column.PartialCheck = true
oG2antt.HeaderVisible = 1
oG2antt.SelBackColor = RGB(240,240,240)
oG2antt.SelForeColor = RGB(0,0,0)
var_Chart = oG2antt.Chart
var_Chart.FirstVisibleDate = 2017-08-01
var_Chart.LevelCount = 2
var_Chart.PaneWidth(false,128)
var_Bar = var_Chart.Bars.Item("Summary")
var_Bar.StartShape = 0
var_Bar.EndShape = 0
var_Bar.Shape = 20
var_Chart.SelBackColor = oG2antt.SelBackColor
var_Chart.SelBarColor = RGB(128,128,128)
var_Items = oG2antt.Items
h = var_Items.AddItem("Project")
hChild = var_Items.InsertItem(h,,"Task 1")
var_Items.AddBar(hChild,"Task",2017-08-02,2017-08-08)
var_Items.SelectItem(hChild,true)
hChild = var_Items.InsertItem(h,,"Task 2")
var_Items.AddBar(hChild,"Task",2017-08-03,2017-08-10)
var_Items.CellState(hChild,0,1)
hChild = var_Items.InsertItem(h,,"Task 3")
var_Items.AddBar(hChild,"Task",2017-08-04,2017-08-12)
var_Items.CellState(hChild,0,1)
var_Items.AddBar(h,"Summary",2017-08-01,2017-08-01,"sum")
var_Items.DefineSummaryBars(h,"sum",-3,"")
var_Items.ExpandItem(h,true)
var_Items.ItemBarEx("(itembar(0) = `Task`)",514,"#8/14/2017# - itembar(2)")
oG2antt.EndUpdate()
|
|
1917
|
How can I move all Task bars to start at the same date time
OleObject oG2antt,var_Bar,var_Chart,var_Column,var_Items
any h,hChild
oG2antt = ole_1.Object
oG2antt.BeginUpdate()
oG2antt.LinesAtRoot = -1
var_Column = oG2antt.Columns.Add("Tasks")
var_Column.Def(0,true)
var_Column.PartialCheck = true
oG2antt.HeaderVisible = 1
oG2antt.SelBackColor = RGB(240,240,240)
oG2antt.SelForeColor = RGB(0,0,0)
var_Chart = oG2antt.Chart
var_Chart.FirstVisibleDate = 2017-08-01
var_Chart.LevelCount = 2
var_Chart.PaneWidth(false,128)
var_Bar = var_Chart.Bars.Item("Summary")
var_Bar.StartShape = 0
var_Bar.EndShape = 0
var_Bar.Shape = 20
var_Chart.SelBackColor = oG2antt.SelBackColor
var_Chart.SelBarColor = RGB(128,128,128)
var_Items = oG2antt.Items
h = var_Items.AddItem("Project")
hChild = var_Items.InsertItem(h,,"Task 1")
var_Items.AddBar(hChild,"Task",2017-08-02,2017-08-08)
var_Items.SelectItem(hChild,true)
hChild = var_Items.InsertItem(h,,"Task 2")
var_Items.AddBar(hChild,"Task",2017-08-03,2017-08-10)
var_Items.CellState(hChild,0,1)
hChild = var_Items.InsertItem(h,,"Task 3")
var_Items.AddBar(hChild,"Task",2017-08-04,2017-08-12)
var_Items.CellState(hChild,0,1)
var_Items.AddBar(h,"Summary",2017-08-01,2017-08-01,"sum")
var_Items.DefineSummaryBars(h,"sum",-3,"")
var_Items.ExpandItem(h,true)
var_Items.ItemBarEx("(itembar(0) = `Task`)",514,"#8/3/2017# - itembar(1)")
oG2antt.EndUpdate()
|
|
1916
|
How can I change the color for checked Task bars
OleObject oG2antt,var_Bar,var_Chart,var_Column,var_Items
any h,hChild
oG2antt = ole_1.Object
oG2antt.BeginUpdate()
oG2antt.LinesAtRoot = -1
var_Column = oG2antt.Columns.Add("Tasks")
var_Column.Def(0,true)
var_Column.PartialCheck = true
oG2antt.HeaderVisible = 1
oG2antt.SelBackColor = RGB(240,240,240)
oG2antt.SelForeColor = RGB(0,0,0)
var_Chart = oG2antt.Chart
var_Chart.FirstVisibleDate = 2017-08-01
var_Chart.LevelCount = 2
var_Chart.PaneWidth(false,128)
var_Bar = var_Chart.Bars.Item("Summary")
var_Bar.StartShape = 0
var_Bar.EndShape = 0
var_Bar.Shape = 20
var_Chart.SelBackColor = oG2antt.SelBackColor
var_Chart.SelBarColor = RGB(128,128,128)
var_Items = oG2antt.Items
h = var_Items.AddItem("Project")
hChild = var_Items.InsertItem(h,,"Task 1")
var_Items.AddBar(hChild,"Task",2017-08-02,2017-08-08)
var_Items.SelectItem(hChild,true)
hChild = var_Items.InsertItem(h,,"Task 2")
var_Items.AddBar(hChild,"Task",2017-08-03,2017-08-10)
var_Items.CellState(hChild,0,1)
hChild = var_Items.InsertItem(h,,"Task 3")
var_Items.AddBar(hChild,"Task",2017-08-04,2017-08-12)
var_Items.CellState(hChild,0,1)
var_Items.AddBar(h,"Summary",2017-08-01,2017-08-01,"sum")
var_Items.DefineSummaryBars(h,"sum",-3,"")
var_Items.ExpandItem(h,true)
var_Items.ItemBarEx("cellstate(0) = 1 and itembar(0) = `Task`",33,255)
oG2antt.EndUpdate()
|
|
1915
|
How do I resize all Task bars programatically
OleObject oG2antt,var_Bar,var_Chart,var_Column,var_Items
any h,hChild
oG2antt = ole_1.Object
oG2antt.BeginUpdate()
oG2antt.LinesAtRoot = -1
var_Column = oG2antt.Columns.Add("Tasks")
var_Column.Def(0,true)
var_Column.PartialCheck = true
oG2antt.HeaderVisible = 1
oG2antt.SelBackColor = RGB(240,240,240)
oG2antt.SelForeColor = RGB(0,0,0)
var_Chart = oG2antt.Chart
var_Chart.FirstVisibleDate = 2017-08-01
var_Chart.LevelCount = 2
var_Chart.PaneWidth(false,128)
var_Bar = var_Chart.Bars.Item("Summary")
var_Bar.StartShape = 0
var_Bar.EndShape = 0
var_Bar.Shape = 20
var_Chart.SelBackColor = oG2antt.SelBackColor
var_Chart.SelBarColor = RGB(128,128,128)
var_Items = oG2antt.Items
h = var_Items.AddItem("Project")
hChild = var_Items.InsertItem(h,,"Task 1")
var_Items.AddBar(hChild,"Task",2017-08-02,2017-08-08)
var_Items.SelectItem(hChild,true)
hChild = var_Items.InsertItem(h,,"Task 2")
var_Items.AddBar(hChild,"Task",2017-08-03,2017-08-10)
var_Items.CellState(hChild,0,1)
hChild = var_Items.InsertItem(h,,"Task 3")
var_Items.AddBar(hChild,"Task",2017-08-04,2017-08-12)
var_Items.CellState(hChild,0,1)
var_Items.AddBar(h,"Summary",2017-08-01,2017-08-01,"sum")
var_Items.DefineSummaryBars(h,"sum",-3,"")
var_Items.ExpandItem(h,true)
var_Items.ItemBarEx("itembar(0) = `Task`",2,"value + 2")
oG2antt.EndUpdate()
|
|
1914
|
How do I move just the checked Task bars in the chart
OleObject oG2antt,var_Bar,var_Chart,var_Column,var_Items
any h,hChild
oG2antt = ole_1.Object
oG2antt.BeginUpdate()
oG2antt.LinesAtRoot = -1
var_Column = oG2antt.Columns.Add("Tasks")
var_Column.Def(0,true)
var_Column.PartialCheck = true
oG2antt.HeaderVisible = 1
oG2antt.SelBackColor = RGB(240,240,240)
oG2antt.SelForeColor = RGB(0,0,0)
var_Chart = oG2antt.Chart
var_Chart.FirstVisibleDate = 2017-08-01
var_Chart.LevelCount = 2
var_Chart.PaneWidth(false,128)
var_Bar = var_Chart.Bars.Item("Summary")
var_Bar.StartShape = 0
var_Bar.EndShape = 0
var_Bar.Shape = 20
var_Chart.SelBackColor = oG2antt.SelBackColor
var_Chart.SelBarColor = RGB(128,128,128)
var_Items = oG2antt.Items
h = var_Items.AddItem("Project")
hChild = var_Items.InsertItem(h,,"Task 1")
var_Items.AddBar(hChild,"Task",2017-08-02,2017-08-08)
var_Items.SelectItem(hChild,true)
hChild = var_Items.InsertItem(h,,"Task 2")
var_Items.AddBar(hChild,"Task",2017-08-03,2017-08-10)
var_Items.CellState(hChild,0,1)
hChild = var_Items.InsertItem(h,,"Task 3")
var_Items.AddBar(hChild,"Task",2017-08-04,2017-08-12)
var_Items.CellState(hChild,0,1)
var_Items.AddBar(h,"Summary",2017-08-01,2017-08-01,"sum")
var_Items.DefineSummaryBars(h,"sum",-3,"")
var_Items.ExpandItem(h,true)
var_Items.ItemBarEx("cellstate(0) = 1 and itembar(0) = `Task`",514,-2)
oG2antt.EndUpdate()
|
|
1913
|
How do I move all Task bars in the chart
OleObject oG2antt,var_Bar,var_Chart,var_Column,var_Items
any h,hChild
oG2antt = ole_1.Object
oG2antt.BeginUpdate()
oG2antt.LinesAtRoot = -1
var_Column = oG2antt.Columns.Add("Tasks")
var_Column.Def(0,true)
var_Column.PartialCheck = true
oG2antt.HeaderVisible = 1
oG2antt.SelBackColor = RGB(240,240,240)
oG2antt.SelForeColor = RGB(0,0,0)
var_Chart = oG2antt.Chart
var_Chart.FirstVisibleDate = 2017-08-01
var_Chart.LevelCount = 2
var_Chart.PaneWidth(false,128)
var_Bar = var_Chart.Bars.Item("Summary")
var_Bar.StartShape = 0
var_Bar.EndShape = 0
var_Bar.Shape = 20
var_Chart.SelBackColor = oG2antt.SelBackColor
var_Chart.SelBarColor = RGB(128,128,128)
var_Items = oG2antt.Items
h = var_Items.AddItem("Project")
hChild = var_Items.InsertItem(h,,"Task 1")
var_Items.AddBar(hChild,"Task",2017-08-02,2017-08-08)
var_Items.SelectItem(hChild,true)
hChild = var_Items.InsertItem(h,,"Task 2")
var_Items.AddBar(hChild,"Task",2017-08-03,2017-08-10)
var_Items.CellState(hChild,0,1)
hChild = var_Items.InsertItem(h,,"Task 3")
var_Items.AddBar(hChild,"Task",2017-08-04,2017-08-12)
var_Items.CellState(hChild,0,1)
var_Items.AddBar(h,"Summary",2017-08-01,2017-08-01,"sum")
var_Items.DefineSummaryBars(h,"sum",-3,"")
var_Items.ExpandItem(h,true)
var_Items.ItemBarEx("itembar(0) = `Task`",514,1)
oG2antt.EndUpdate()
|
|
1912
|
How do I count all Task bars in the chart
OleObject oG2antt,var_Bar,var_Chart,var_Items
any h,hChild
oG2antt = ole_1.Object
oG2antt.BeginUpdate()
oG2antt.LinesAtRoot = -1
oG2antt.Columns.Add("Tasks")
oG2antt.HeaderVisible = 1
oG2antt.SelBackColor = RGB(240,240,240)
oG2antt.SelForeColor = RGB(0,0,0)
var_Chart = oG2antt.Chart
var_Chart.FirstVisibleDate = 2017-08-01
var_Chart.LevelCount = 2
var_Chart.PaneWidth(false,128)
var_Bar = var_Chart.Bars.Item("Summary")
var_Bar.StartShape = 0
var_Bar.EndShape = 0
var_Bar.Shape = 20
var_Chart.SelBackColor = oG2antt.SelBackColor
var_Chart.SelBarColor = RGB(128,128,128)
var_Items = oG2antt.Items
h = var_Items.AddItem("Project")
hChild = var_Items.InsertItem(h,,"Task 1")
var_Items.AddBar(hChild,"Task",2017-08-02,2017-08-08)
hChild = var_Items.InsertItem(h,,"Task 2")
var_Items.AddBar(hChild,"Task",2017-08-03,2017-08-10)
hChild = var_Items.InsertItem(h,,"Task 3")
var_Items.AddBar(hChild,"Task",2017-08-04,2017-08-12)
var_Items.AddBar(h,"Summary",2017-08-01,2017-08-01,"sum")
var_Items.DefineSummaryBars(h,"sum",-3,"")
var_Items.ExpandItem(h,true)
MessageBox("Information",string( String(var_Items.ItemBarEx("itembar(0) = `Task`",256)) ))
oG2antt.EndUpdate()
|
|
1911
|
How do I select bars whose items are checked
OleObject oG2antt,var_Bar,var_Chart,var_Column,var_Items
any h,hChild
oG2antt = ole_1.Object
oG2antt.BeginUpdate()
oG2antt.LinesAtRoot = -1
var_Column = oG2antt.Columns.Add("Tasks")
var_Column.Def(0,true)
var_Column.PartialCheck = true
oG2antt.HeaderVisible = 1
oG2antt.SelBackColor = RGB(240,240,240)
oG2antt.SelForeColor = RGB(0,0,0)
var_Chart = oG2antt.Chart
var_Chart.FirstVisibleDate = 2017-08-01
var_Chart.LevelCount = 2
var_Chart.PaneWidth(false,128)
var_Bar = var_Chart.Bars.Item("Summary")
var_Bar.StartShape = 0
var_Bar.EndShape = 0
var_Bar.Shape = 20
var_Chart.SelBackColor = oG2antt.SelBackColor
var_Chart.SelBarColor = RGB(128,128,128)
var_Items = oG2antt.Items
h = var_Items.AddItem("Project")
hChild = var_Items.InsertItem(h,,"Task 1")
var_Items.AddBar(hChild,"Task",2017-08-02,2017-08-08)
var_Items.SelectItem(hChild,true)
hChild = var_Items.InsertItem(h,,"Task 2")
var_Items.AddBar(hChild,"Task",2017-08-03,2017-08-10)
var_Items.CellState(hChild,0,1)
hChild = var_Items.InsertItem(h,,"Task 3")
var_Items.AddBar(hChild,"Task",2017-08-04,2017-08-12)
var_Items.CellState(hChild,0,1)
var_Items.AddBar(h,"Summary",2017-08-01,2017-08-01,"sum")
var_Items.DefineSummaryBars(h,"sum",-3,"")
var_Items.ExpandItem(h,true)
var_Items.ItemBarEx("cellstate(0) = 1",257,true)
oG2antt.EndUpdate()
|
|
1910
|
How can I select all bars, where a specified column matches a specified criteria
OleObject oG2antt,var_Items
any h
oG2antt = ole_1.Object
oG2antt.BeginUpdate()
oG2antt.Columns.Add("Task")
oG2antt.Chart.FirstVisibleDate = 2001-01-01
oG2antt.Chart.PaneWidth(false,48)
oG2antt.Chart.SelBarColor = RGB(255,0,0)
var_Items = oG2antt.Items
h = var_Items.AddItem("Task 1")
var_Items.AddBar(h,"Task",2001-01-02,2001-01-04,"K1","K1")
var_Items.AddBar(h,"Task",2001-01-05,2001-01-07,"K2","K2")
var_Items.AddBar(h,"Task",2001-01-08,2001-01-10,"P","P")
var_Items.AddBar(var_Items.AddItem("Task 2"),"Task",2001-01-02,2001-01-04,"Q","Q")
var_Items.AddBar(var_Items.AddItem("Task 4"),"Task",2001-01-02,2001-01-04,"M","M")
var_Items.ItemBarEx("cellcaption(0) = `Task 1`",257,true)
oG2antt.EndUpdate()
|
|
1909
|
How can I select/unselect all bars
OleObject oG2antt,var_Items
any h
oG2antt = ole_1.Object
oG2antt.BeginUpdate()
oG2antt.Columns.Add("Task")
oG2antt.Chart.FirstVisibleDate = 2001-01-01
oG2antt.Chart.PaneWidth(false,48)
oG2antt.Chart.SelBarColor = RGB(255,0,0)
var_Items = oG2antt.Items
h = var_Items.AddItem("Task 1")
var_Items.AddBar(h,"Task",2001-01-02,2001-01-04,"K1","K1")
var_Items.AddBar(h,"Task",2001-01-05,2001-01-07,"K2","K2")
var_Items.AddBar(h,"Task",2001-01-08,2001-01-10,"P","P")
var_Items.AddBar(var_Items.AddItem("Task 2"),"Task",2001-01-02,2001-01-04,"Q","Q")
var_Items.AddBar(var_Items.AddItem("Task 4"),"Task",2001-01-02,2001-01-04,"M","M")
var_Items.ItemBarEx(true,257,true)
oG2antt.EndUpdate()
|
|
1908
|
Is it possible to set the background color of the chart for one item and one day
OleObject oG2antt,var_Chart,var_Items
any h
oG2antt = ole_1.Object
oG2antt.BeginUpdate()
oG2antt.Columns.Add("Items")
var_Chart = oG2antt.Chart
var_Chart.LevelCount = 2
var_Chart.PaneWidth(false,96)
var_Chart.FirstVisibleDate = 2001-01-01
var_Items = oG2antt.Items
var_Items.AddItem("Item")
h = var_Items.AddItem("Item")
var_Items.AddBar(h,"",2001-01-02,2001-01-03,"Back"," ")
var_Items.ItemBar(h,"Back",7,255)
var_Items.ItemBar(h,"Back",29,false)
var_Items.AddItem("Item")
oG2antt.EndUpdate()
|
|
1907
|
It is possible to search for an item ( inside the Editor ), case insensitive
OleObject oG2antt,var_Editor,var_Items
oG2antt = ole_1.Object
oG2antt.BeginUpdate()
var_Editor = oG2antt.Columns.Add("DropDownList").Editor
var_Editor.EditType = 3
var_Editor.AddItem(1,"One")
var_Editor.AddItem(2,"Two")
var_Editor.AddItem(3,"Three")
var_Items = oG2antt.Items
var_Items.AddItem(oG2antt.Columns.Item(0).Editor.FindItem(">ONE"))
var_Items.AddItem(oG2antt.Columns.Item(0).Editor.FindItem(">ThRee"))
var_Items.AddItem(oG2antt.Columns.Item(0).Editor.FindItem("ONE"))
var_Items.AddItem(oG2antt.Columns.Item(0).Editor.FindItem(">tWo"))
oG2antt.EndUpdate()
|
|
1906
|
The text after the BR-tag is in same line as the text before the BR-tag (entire column)
OleObject oG2antt,var_Column,var_Items
oG2antt = ole_1.Object
oG2antt.BeginUpdate()
oG2antt.DrawGridLines = 1
oG2antt.Chart.PaneWidth(true,0)
var_Column = oG2antt.Columns.Add("Default")
var_Column.Def(17,1)
var_Column.Def(16,false)
var_Items = oG2antt.Items
var_Items.AddItem("This is the first line.<br>This is the second line.")
var_Items.AddItem("This is the first line.<br>This is the second line.")
var_Items.AddItem("This is the first line.<br>This is the second line.")
oG2antt.EndUpdate()
|
|
1905
|
The text after the BR-tag is in same line as the text before the BR-tag (individual)
OleObject oG2antt,var_Items
any h
oG2antt = ole_1.Object
oG2antt.BeginUpdate()
oG2antt.DrawGridLines = 1
oG2antt.Chart.PaneWidth(true,0)
oG2antt.Columns.Add("Default")
var_Items = oG2antt.Items
var_Items.CellValueFormat(var_Items.AddItem("This is the first line.<br>This is the second line."),0,1)
h = var_Items.AddItem("<b>This is the first line.<br>This is the second line.</b>")
var_Items.CellValueFormat(h,0,1)
var_Items.CellSingleLine(h,0,false)
var_Items.CellValueFormat(var_Items.AddItem("This is the first line.<br>This is the second line."),0,1)
oG2antt.EndUpdate()
|
|
1904
|
How do I prevent showing the control's BackColorAlternate property on empty / non-items part of the control
OleObject oG2antt,var_Chart,var_Items
oG2antt = ole_1.Object
oG2antt.BeginUpdate()
oG2antt.DrawGridLines = -1
var_Chart = oG2antt.Chart
var_Chart.DrawGridLines = -1
var_Chart.LevelCount = 2
var_Chart.PaneWidth(false,128)
var_Chart.FirstVisibleDate = 2001-01-01
oG2antt.BackColorAlternate = 2146496752 /*0x7ff0f0f0*/
oG2antt.BackColorLevelHeader = oG2antt.BackColor
oG2antt.Columns.Add("Column")
var_Items = oG2antt.Items
var_Items.AddBar(var_Items.AddItem("Item 1"),"Task",2001-01-02,2001-01-12)
var_Items.AddBar(var_Items.AddItem("Item 2"),"Task",2001-01-03,2001-01-13)
var_Items.AddBar(var_Items.AddItem("Item 3"),"Task",2001-01-02,2001-01-12)
var_Items.AddBar(var_Items.AddItem("Item 4"),"Task",2001-01-03,2001-01-13)
var_Items.AddBar(var_Items.AddItem("Item 5"),"Task",2001-01-02,2001-01-12)
oG2antt.EndUpdate()
|
|
1903
|
Can I disable an item once the user selects a new value into a different item
/*begin event Change(long Item,long ColIndex,any NewValue) - Occurs when the user changes the cell's content.*/
/*
OleObject var_Items
oG2antt = ole_1.Object
var_Items = oG2antt.Items
var_Items.EnableItem(var_Items.ItemByIndex(1),false)
*/
/*end event Change*/
OleObject oG2antt,var_Editor,var_Items
any h1,h2
oG2antt = ole_1.Object
oG2antt.FreezeEvents(true)
oG2antt.BeginUpdate()
oG2antt.Chart.PaneWidth(true,0)
oG2antt.ScrollBySingleLine = true
oG2antt.DrawGridLines = -2
oG2antt.Columns.Add("Q")
oG2antt.Columns.Add("A")
var_Items = oG2antt.Items
h1 = var_Items.AddItem("What's your gender?")
var_Editor = var_Items.CellEditor(h1,1)
var_Editor.EditType = 3
var_Editor.AddItem(1,"Male")
var_Editor.AddItem(0,"Female")
var_Items.CellValue(h1,1,1)
h2 = var_Items.AddItem("What's pet name?")
var_Items.CellValue(h2,1,"This is my pet favorite long long long name, that shoul break the line in multiple pieces")
var_Items.CellSingleLine(h2,1,false)
oG2antt.EndUpdate()
oG2antt.FreezeEvents(false)
|
|
1902
|
How can I get a row expanded / enlarged to fit the cell's text (entire column)
OleObject oG2antt,var_Column,var_Editor,var_Items
any h1,h2
oG2antt = ole_1.Object
oG2antt.BeginUpdate()
oG2antt.Chart.PaneWidth(true,0)
oG2antt.ScrollBySingleLine = true
oG2antt.DrawGridLines = -2
oG2antt.Columns.Add("Q")
var_Column = oG2antt.Columns.Add("A")
var_Column.Def(16,false)
var_Editor = var_Column.Editor
var_Editor.EditType = 5
var_Editor.Appearance = 8
var_Items = oG2antt.Items
h1 = var_Items.AddItem("What's name?")
var_Items.CellValue(h1,1,"This is my pet favorite long long long name, that shoul break the line in multiple pieces")
h2 = var_Items.AddItem("What's your pet name?")
var_Items.CellValue(h2,1,"This is my pet favorite long long long name, that shoul break the line in multiple pieces")
oG2antt.EndUpdate()
|
|
1901
|
How can I get a row expanded / enlarged to fit the cell's text (individual cell)
OleObject oG2antt,var_Editor,var_Items
any h1,h2
oG2antt = ole_1.Object
oG2antt.BeginUpdate()
oG2antt.Chart.PaneWidth(true,0)
oG2antt.ScrollBySingleLine = true
oG2antt.DrawGridLines = -2
oG2antt.Columns.Add("Q")
oG2antt.Columns.Add("A")
var_Items = oG2antt.Items
h1 = var_Items.AddItem("What's name?")
var_Items.CellValue(h1,1,"This is my pet favorite long long long name, that shoul break the line in multiple pieces")
h2 = var_Items.AddItem("What's your pet name?")
var_Editor = var_Items.CellEditor(h2,1)
var_Editor.EditType = 5
var_Editor.Appearance = 8
var_Items.CellValue(h2,1,"This is my pet favorite long long long name, that shoul break the line in multiple pieces")
var_Items.CellSingleLine(h2,1,false)
oG2antt.EndUpdate()
|